[v1s2222]

Код:

type
  TLogin = Record
    Log, Pas: String;
  end;

var
  Form1: TForm1;

  Mas: Array[1..3] of TLogin;
  N: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Str: TStringList;
  i: Integer;
begin
{
  Файл должен быть типа:
  Логин1:Пароль1
  Логин2:Пароль2
  ...
}
  N := 1;
  Str := TStringList.Create;
  Str.LoadFromFile('myfile.txt');
  for i:=0 to Str.Count-1 do begin
    Mas[N].Log := Copy(Str.Strings[i], 1, Pos(':', S)-1);
    Mas[N].Pas := Copy(Str.Strings[i], Pos(':', S)+1, Length(Str.Strings[i])-Pos(':', S));
    inc(N);
  end;
  Str.Free;
// теперь в массиве Mas[i] хранятся логины пароли.

Это не идеальный вариант, но работать будет.
Также возможно разбить логины-пароли:

Код:

  S := StringReplace(S, ':', #10#13, [rfReplaceAll]);

Тогда пройтись циклом по всем строчкам, в нечетных были бы логины, в четных - пароли.


ЗЫ пока писал уже ответили