[dr. F.I.N.]

Я бы чуток по-другому сделал:

Код:

var
 str:string;
 i, j:integer;
 filetxt,loginstr,passstr:tstringlist;
***
filetxt:=tstringlist.Create;
filetxt.loadfromfile('txt.txt');
loginstr:=tstringlist.Create;
passstr:=tstringlist.Create;
***
for i := 0 to Pred(filetxt.count) do
begin
   str:=filetxt.Strings[i];
   j := Pos(':', str);
   if j > 0 then
   begin
	 loginstr.Add(Copy(str, 1, j - 1));
	 passstr.add(Copy(str, j + 1, Length(Str) - j));
   end;
end;
memo1.Text := loginstr.Text;
memo2.Text := passstr.Text;