procedure SetMemoText(Memo: TMemo; Data: string);
var
i, DataLen: integer;
StrTemp: string;
begin
DataLen := Length(Data);
StrTemp := Data[1];
for i := 2 to DataLen do
begin
if ((StrTemp[1] < chr(128)) and (Data[i] < chr(128)))
or ((StrTemp[1] >= chr(128)) and (Data[i] >= chr(128))) then
begin
StrTemp:= StrTemp + Data[i];
end else
begin
Memo.Lines.Add(StrTemp);
StrTemp := Data[i];
end;
end;
Memo.Lines.Add(StrTemp);
end;
