Delphi - Como usar o InputQuery

procedure TForm1.Button1Click(Sender: TObject);
var  resultado : string;
begin
  resultado := 'Teste';
  if InputQuery('The Club', 'Teste', resultado ) then
    begin
      showmessage(resultado)
    end
  else
    begin
     ShowMessage('Operação Cancelada !');
     Edit1.SetFocus;
    end;
end;