>>417

varが途中でも書けたらさらにいいな。(forのインデックスにも使えるし)

procedure A;
begin
　...
　var
　　Work: TBitmap = TBitmap.Create;
　begin
　　Work.Width :=100;
　　Work.Height:=100;
　　Work.PixelFormat:= pf1bit;
　　Work.Canvas.Ellipse(1,1,100,100);//円を描く
　　Work.Canvas.TextOut(5,5,'こんにちは');
　　Work.SaveToFile('temp.bmp');
　　Work.Free
　end;
　...
end;