TMsj = class(TThread)
protected
procedure Execute; override;
end;
var
ChecarMsj:TMsj;
procedure Tmsj.Execute;
var
Msg : String;
begin
with form1 do
begin
if not IdTCPClient1.Connected then
exit;
Msg := IdTCPClient1.ReadLn('');
if Msg <> '' then
if Msg[1] <> '@' then
begin
memLines.Lines.Add(Msg);
end
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ChecarMsj:=TMsj.Create(false);
end;