wave nach Textausgabe abspielen, Reihenfolge stimmt nicht

[Schubi]

Probiers mal mit Application.ProcessMessages;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=Memo1.Text + 'A';
Application.ProcessMessages;

PlaySound(PChar('a.wav'), 0, SND_SYNC);
Memo1.Text:=Memo1.Text + 'B';
Application.ProcessMessages;

PlaySound(PChar('b.wav'), 0, SND_SYNC);
Memo1.Text:=Memo1.Text + 'C';
Application.ProcessMessages;

PlaySound(PChar('c.wav'), 0, SND_SYNC);
end;