Interner Lautsprecher

[Orbmu2k]

oder so

Delphi-Quellcode:

for x := 1 to 20 do
begin
  Application.ProcessMessages;
  if brk then Exit;
  windows.beep(4000,100);
end;

und dann mit
brk := True abbrechen