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+']';