InPutBox

Você não consegue testar o botão com InputBox. Para este caso utilize o InputQuery. Ex:

procedure TForm1.Button1Click(Sender: TObject);
var
NewString: string;
begin
NewString := ´Default String´;
if InputQuery(´Input Box´, ´Prompt´, NewString) then
ShowMessage(NewString);
end;

Valeu pela pela informacao!!!!!!!!!