procedure TForm1.Button1Click(Sender: TObject);
var bmp:TBitmap;
begin
bmp:=TBitmap.Create;
try
bmp.Height := 100;
bmp.Width := 100;
with bmp.Canvasdo
begin
Brush.Color:=clWhite;
FillRect(Rect(0,0,100,100));
end;
bmp.SaveToFile('c:/aa.bmp');
finally
bmp.free;
end;
showmessage('ok');
end;
