Showmessage

[aanil]

Hola a todos en especial a todos los que me orientan.

Obseven este codigo ( funciona bien), pero luego al final hago la pregunta.


procedure TForm1.BitBtn1Click(Sender: TObject);
begin

if (edit1.Text ='') then begin
showmessage ( 'DEBE ESCRIBIR EL CODIGO DEL CENTRO');
EDIT1.SetFocus;

end;
end;


La salida es la siguiente:


Pero no quiero que salga Project1