[march]

Раз дан список логин пароль, то помещу логины и пароли в мемо.

Код:

var
 login,pass,sym,str:string;
 i,meterofsymbols:integer;
 filetxt,loginstr,passstr:tstringlist;
***
filetxt:=tstringlist.Create;
filetxt.loadfromfile('txt.txt');

loginstr:=tstringlist.Create;
passstr:=tstringlist.Create;
***
for i:=0 to (filetxt.count-1) do
  begin
   str:=filetxt.Strings[i];
   sym:='';
   login:='';
   pass:='';
   meterofsymbols:=1;


   while sym<>':' do
    begin
     sym:=copy(str,meterofsymbols,1);
     if sym=':' then break;
     login:=login+sym;
     meterofsymbols:=meterofsymbols+1;
    end;

   pass:=copy(str,meterofsymbols+1,length(str)+1-meterofsymbols);
   loginstr.Add(login);
   passstr.add(pass);
 end;
memo1.Text:=loginstr.Text;
memo2.Text:=passstr.Text;