Function InputBox

uses Unit Dialogs

A função InputBox exibe uma caixa de diálogo com dois botões (OK e CANCEL), juntamente com uma caixa de texto para que o usuário entre com alguma informação.O valor retornado pela função será o texto digitado na caixa de texto, isso se o usuário clicar no botão OK.

Sintaxe da sua utilização:

InputBox('Título_da_caixa_de_diálogo','mensagem_da_caixa_de_texto','conteúdo_da_caixa_de_texto');

Ex:

procedure TForm1.Button10Click(Sender: TObject);
var nome_completo :string;

begin
       InputBox('Nome','Digite seu nome','nome_completo');

       ShowMessage(nome_completo);
end;