Mira este ejemplo a ver si es que no has puesto que tecla es la que a provocar que el texto se muestre:
Código Delphi
[-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key = #13 then
ShowMessage('Pulsó enter');
end;
Un Saludo.