Bir Resim Dosyasi Açip içine Çizim Yapma

var
Resim: TBitmap;


Resim := TBitmap.Create;
with Resim do
try
Width := 100;
Height := 100;
with Canvas do
begin
Rectangle(0, 0, 100, 100);
MoveTo(0, 0); 
LineTo(100, 100);
MoveTo(0, 100); 
LineTo(100, 0);
end;
SaveToFile('test.bmp')
finally
Free;
end;