1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3. a:= edit1.Text;
  4. If a = 'Ricardo' then
  5. begin
  6. ShowMessage('Hallo Rici!') ;
  7. SndPlaySound( 'alarm.wav', SND_ASYNC);
  8. end
  9. else
  10. showmessage('falsch!');
  11. SndPlaySound( 'evil.wav', SND_ASYNC);
  12. end;
  13. end.