строки и действия

[DeDoK]

всем спасибо)

[Пепел Феникса]

ну ты можешь использовать результаты сразу после получения(или хранить в массивах)
первое(вывод в мемо):

procedure Divide(Sourse:string;var Dest1,Dest2:string);
begin
 Dest1:=Copy(Sourse,1,Pos(';',Sourse)-1);
 Delete(Sourse,1,Pos(';',Sourse));
 Dest2:=Sourse;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ss : TStringList;
 sVar1, sVar2 : string;
 i : integer;
begin
  ss := TStringList.Create;
  ss.Add('xxx;yyy');
  ss.Add('xxxxxxxxx;yyyy');
  ss.Add('x333333;y3');
  for i:=0 to ss.Count-1 do begin
    Divide(ss.Strings[i],sVar1,sVar2);
    Memo1.Lines.Add(sVar1+' '+sVar2);
  end;
  FreeAndNil(ss);
end;

второе(два TStringList допольнительно для хранения):

var
s1,s2:TStringList;

procedure TForm1.FormCreate(Sender: TObject);
begin
 s1:=TStringList.Create
 s2:=TStringList.Create
end;

procedure Divide(Sourse:string;var Dest1,Dest2:string);
begin
 Dest1:=Copy(Sourse,1,Pos(';',Sourse)-1);
 Delete(Sourse,1,Pos(';',Sourse));
 Dest2:=Sourse;
end;

procedure TForm1.Button1Click(Sender: TObject);
var ss : TStringList;
 sVar1, sVar2 : string;
 i : integer;
begin
  ss := TStringList.Create;
  ss.Add('xxx;yyy');
  ss.Add('xxxxxxxxx;yyyy');
  ss.Add('x333333;y3');
  for i:=0 to ss.Count-1 do begin
    Divide(ss.Strings[i],sVar1,sVar2);
     s1.Add(sVar1);
     s2.Add(sVar2);
  end;
  FreeAndNil(ss);
end;

и используй потом там где надо
----------------------------------------------
я что неправильно понял пост номер 18??