Caixa de diálogo InputBox

Caixa de mensagem ShowMessage

Exemplo de uso:

procedure TForm1.Button1Click(Sender: TObject);
var
   nome: string;
begin
   nome := InputBox('Barra superior', 'Mensagem:', 'Digite aqui');
   ShowMessage
('Bom Dia ' + nome);
end;

Caixa de diálogo gerada pelo exemplo acima:


caixa de mensagem