[lmikle]

Код:

var
  a, b : Array Of String;
  AList : TStringList;
  I : Integer;
  Idx : Integer;
begin
  SetLength(a,0);
  SetLength(b,0);
  AList := TStringList.Create;
  Try
     AList.LoadFromFile('здесь имя файла');
     For I := 0 To AList.Count-1 Do
        Begin
           Idx := Pos(';',AList[i]);
           If Idx > 0 Then
             Begin
                SetLength(a,Length(a) + 1);
                SetLength(b,Length(b) + 1);
                a[High(a)] := Copy(AList[i],1,Idx-1);
                b[High(b)] := Copy(AList[i],Idx+1,Length(AList[i]) - Idx + 1);
             End;
        End;
  Finally
    AList.Free;
  End;  
end;

все...