var
i:integer;
image1:Timage;
begin
for i:=0 to ComponentCount-1 do
begin
if Components[i] is TImage then
TImage(Components[i]).Free;
end;
image1:=TImage.Create(self);
image1.Top:=100;//坐标
image1.Left:=100;//坐标
image1.Height:=100;
image1.Width:=100;
image1.Parent:=Form1;
image1.Canvas.TextOut(10,10,'ok');
end;