Paste2
Create Paste
Followup Paste
QR
procedure
TForm1
.
Button1Click
(
Sender
:
TObject
)
;
begin
a
:=
edit1
.
Text
;
If
a
=
'Ricardo'
then
begin
ShowMessage
(
'Hallo Rici!'
)
;
SndPlaySound
(
'alarm.wav'
,
SND_ASYNC
)
;
end
else
showmessage
(
'falsch!'
)
;
SndPlaySound
(
'evil.wav'
,
SND_ASYNC
)
;
end
;
end
.