Edittext بدل الاسم عند التصغير

الصورة موضوعة بامتداد BMP نرجوا في المرات القادمة تحويلها الى صيغة اخف GIF,JPEG..

بالنسبة لما تريد

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Application.MainForm.Caption:= Edit1.Text;
end;

النص الذي يظهر هو ال Caption لل Main Form

شكرا يا امير

وجزاك الله خير