Lauftext von rechts nach links

[Natcree]

Danke erstmal

Nun soll auch sound abgespielt werden jedoch bremst dieser die geschwindigkeit aus kann ich da was gegen machen

Delphi-Quellcode:

var
s:String;
begin
  s:='Hallo';
  inc(i);
  if i > length(s) then
  begin
    Timer1.Enabled := False;
    Exit;
  end;
  canvas.textout(50+i*10,50,s[i]);
  sndPlaySound(Pchar('c:\delphi progs\fenster\windows navigation start.wav'),SND_SYNC);
end;