hace una input box en delphi?

[Gattaca]

Hola..

Sera que se puede hacer una inputbox como las de visual basic pero en delphi?...

Por ejemplo.

cajadeinput = InputBox("Inserte el texto:", "InputBox")
if cajadeinput = "A" then
...
else
...
end if

Algo asi era para visual basic, pero ya deje de usarlo...

Alguna ayuda es urgente por favor...

[dec]

Hola,

La función sustituta sería "InputQuery":

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  userResponse: string;
begin

  repeat
    InputQuery('Write your name', 'Write your name', userResponse);
  until (userResponse <> '');

  ShowMessage(userResponse);
end;

[rgstuamigo]

Sera que se puede hacer una inputbox como las de visual basic pero en delphi?...

Se puede,es casi lo mismo:
Siguiendo tu ejemplo:

Código Delphi [-]
 cajadeinput:=InputBox('Inserte el texto:', 'Por favor..','A');//aqui la letra 'A' se saldra como dato por defecto en el InputBox,si no quieres ninguno simplemente dejalo vacio('') 
if cajadeinput = 'A' then
  begin
  ...
  end
else
  begin
  ...
  end;

Si presionas F1 de seguro que ubieras encontrado ayuda....

[Gattaca]

Muchas gracias a ambos, pero al de arriva, sele olvido decirme que le declare la variable:

Código Delphi [-]
Procedure ...
var
cajadeinput : string;
begin
cajadeinput:=inputquery('Inserte ID:', 'Por favor...', '000000-000000');
if cajadeinput='00000-00000' then
begin
...
end else begin
...
end;

end.

Saludos!