ANTICHAT — форум по информационной безопасности, OSINT и технологиям

procedure TForm1.Button1Click(Sender: TObject);
var
  F             : TextFile;
  S             : string;
  UIN, PassWord : string;
begin
  AssignFile (F, 'C:\1.txt');
  {$I-}
  Reset (F);
  {$I+}
  if IOresult = 0 then
  begin
    while not SeekEof (F) do
    begin
      ReadLn (F, S);
      UIN      := Trim (Copy (S, 1, Pos (';', S)-1));
      PassWord := Trim (Copy (S, Pos (';', S)+1, Length (S)));
      Memo1.Lines.Add (UIN+' - '+PassWord);
    end;
   CloseFile (F);
  end;
end;