jaja schon klar!
funzt ja eh - hab nur nicht richtig geschaut.
hab dann noch etwas bisschen ausgebessert:
Delphi-Quellcode:
destructor TMonThread.Destroy;
begin
inherited Destroy;
end;
Es stand ohne inherited da... und bei der letzten abfrage steht jetzt:
Delphi-Quellcode:
until (Signaled = EV_RXCHAR) or (Stopped = True);
if (Stopped = False) then
begin
Form1.Memo_sms.Lines.Add('Input!');
Input;
end else
begin
ShowMessage('Stopped');
Terminate;
end;
end;
Jetzt geht alles danke euch!
lg