procedure TForm1.FormCreate(Sender: TObject);
begin
    Application.Title := 'My Program';
end;