[v1s2222]

Код:

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

var
  Form1: TForm1;

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

implementation

{$R *.dfm}

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadLogins;
  showmessage('Первый логин: ' + mas[1].Log + '; 1 Пароль: ' + mas[1].Pas);
end;