Prompt i delphi

prompt >procedure TForm1.Button1Click(Sender: TObject);
VAR
  Strx : String;
begin
  if InputQuery('Skriv her','Din Tekst',Strx) then
  begin
      ShowMessage(Strx);
  end;
end;

pling lyd >

//Disable:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETBEEP,0,NIL,SPIF_SENDWININICHANGE);
end;



//Enable:

procedure TForm1.Button2Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETBEEP,1,NIL,SPIF_SENDWININICHANGE);
end;

Stoney

Det virker jo som det skal, tak for hjælpen...