var s:string;
    n:integer;
begin
 n:=123;
 s:=Memo1.Lines.Strings[n];
 s:=ListBox1.Items.Strings[n];

 idsmtp1.Username:=copy(s,1,pos(':',s)-1);
 delete(s,1,pos(':',s));
 idsmtp1.Password:=s;

end;