Разделение текста

procedure TForm1.Button1Click(Sender: TObject);
var
  e, p, Str: String;
  i: Integer;
begin
  Str := 'email:pass';
  i := Pos(':', Str);
  e := Copy(Str, 1, i - 1);
  p := Copy(Str, i + 1, Length(Str));
  ShowMessage('Ìûëî=' + e + #13#10 + 'Ïàññ=' + p);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Str, e, p: String;
  i, x: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    begin
      Str := Memo1.Lines[i];
      x := Pos(':', Str);
      e := Copy(Str, 1, x - 1);
      p := Copy(Str, x + 1, Length(Str));
      Memo2.Lines.Add('Ìûëî=' + e + ' ' + 'Ïàññ=' + p);
    end;
end;

// пусть в мемо две строки:
// email:pass
// email1:pass1
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Str, e, p: String;
  i, x: Integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do // цыкал, Memo1.Lines.Count кол-во строк мемо(их 2), 
      // строки нумеруются с 0 поэтому будет две строки с индексом 0 и 1, поэтому Memo1.Lines.Count - 1
    begin
      Str := Memo1.Lines[i]; // строку номер i из мемо в Str, например: email:pass
      x := Pos(':', Str); // ищем ':' в Str, получаем позицию в строке 6
      e := Copy(Str, 1, x - 1); // копируем в е кусок из Str начиная с первой позиции и до пятой позиции 
      // это и будет слово email
      p := Copy(Str, x + 1, Length(Str)); // копируем в р кусок начиная с шестой позиции и до конца, 
      // Length(Str) даст длинну строки = 10
      Memo2.Lines.Add('Мыло=' + e + ' ' + 'Пасс=' + p);
    end;
end;