работа с image

[Lokos]

Здравствуйте.
Интересует следующий вопрос как отчистить Image тоесть сделать его таким каким он есвляется при добавлении его на форму.
ЗАрание спасибо.

[SERG1980]

image.Canvas.Brush.Color:=form1.Color;
 image.canvas.fillrect(image.canvas.cliprect);

[Volt]

Image1.Picture.Bitmap.FreeImage

[Lokos]

Сообщение от Volt

Image1.Picture.Bitmap.FreeImage

Данный способ почему то срабатывает не всегда.
Вот код моего преложения

if TabControl1.TabIndex=4 then
    begin
       AgentBox.Visible:=false;
       DokumBox.Visible:=false;
       PosrednikBox.Visible:=false;
       VladelecBox.Visible:=false;
       MestonahBox.Visible:=false;
       GilfondBox.Visible:=false;
       akonomparambox.Visible:=false;
       kvparambox.visible:=false;
       addagentbox.Visible:=false;
       Image2.Picture.Bitmap.FreeImage;
       foto1Im.Picture.Bitmap.FreeImage;
       foto2Im.Picture.Bitmap.FreeImage;
       foto3Im.Picture.Bitmap.FreeImage;
       foto1.Enabled:=true;
       foto1.Checked:=true;
       foto2.Enabled:=true;
       foto3.Enabled:=true;
       foto1.Caption:='Фото1';
       foto2.Caption:='Фото2';
       foto3.Caption:='Фото3';
    end;

и такой на все вкладки кроме той на которой данные элементы но бывает что не срабатывает и картинка остается.
Причем caption меняется всегда.
А с image я делаю ухудшение качества изображения(Сжатие)

[Баламут]

Image1.Picture := nil

[Lokos]

Сообщение от Баламут

Image1.Picture := nil

все вышло спс.
А в чем причина? почему данный код работает

foto1Im.Picture:=nil;

а выше представленый нет

foto3Im.Picture.Bitmap.FreeImage;

[mihali4]

Как всегда - смотрим в хэлп:

FreeImage method (TBitmap)
Frees the cached file image stored in memory by the bitmap.

Т.е. освобождает память, выделенную под картинку при чтении ее из файла...
А к содержимому картинки никакого отношения не имеет.