Ich glaube nicht, dass es etwas mit der Funktion zutun hat.
Delphi-Quellcode:
function vergleicheStringsN(s1, s2:string; n:Word): Boolean;
var i: Word;
function delLZ(s: string): string;
var ss: string;
i, j: Word;
begin
j:=0; ss:='';
for i:=1 to Length(s) do
begin
if (s[i] <> ' ') and (s[i] <> '-') then
begin
Inc(j);
ss:= ss + s[i]
end;
if j=n then Break
end;
Result := UpperCase(ss)
end;
begin
if delLZ(s1)=delLZ(s2) then Result:=True else Result:=False;
end;
var flag:word;
Diese soll lediglich zwei Strings vergleichen. String1 hat einen festen Wert "Wiedergabe". Innerhalb der Timer Prozedur wird nun periodisch verglichen. Nach den Puffern bekommt String2 den Wert "Wiedergabe". Also ist es True. Ich hoffe ich habe mich verständlich ausgedrückt.
Übrigens der Timer wird schon mit Klick auf Play auf True gesetzt.
Der Timer bleibt solange True, bis ich die Wiedergabe beende. Ich vermute schon, dass es am Timer liegt.