unit TruncThread;

interface

uses Classes;

type
TTruncThread = class(TThread)
private
{ Private declarations }
Count_:integer;
Update_Line:integer;
protected
procedure Execute; override;
procedure UpdateCaption;
end;

implementation

uses MainServ;

procedure TTruncThread.UpdateCaption;
begin
Form1.Memo1.Lines.Add(Spisok[Update_Line]);
end;

procedure TTruncThread.Execute;
var CurrentCount, i:integer;
    Temp_str:string;
begin
Count_:=1;
while not(Terminated) do begin
  CurrentCount:=spisok.Count;
  if CurrentCount>Count_ then begin
    for i:=Count_ to CurrentCount do begin
      if length(Spisok.Strings[i-1])>80 then begin
        Temp_str:=Spisok.Strings[i-1];
        SetLength(Temp_str, 80);
        Spisok.Strings[i-1]:=Temp_str;
      end;
    Update_Line:=i-1;
    Synchronize(UpdateCaption);
    end;
    Count_:=CurrentCount;
  end;
end;
end;

end.