procedure TForm1.Button1Click(Sender: TObject);
var Reponse:string;
begin
Reponse:=InputBox('Titre','Message','Valeurpardefaut');
end;