uses GetVersion {req. for kfVersionInfo} procedure TForm1.FormCreate(Sender: TObject); var AppName : string; begin AppName := Copy(ExtractFileName(Application.ExeName), 1, Pos('.',ExtractFileName(Application.ExeName))-1); Application.Title := AppName; Caption := AppName + ' [V'+kfVersionInfo+']';