Помогите написать простенький софт Delphi

Есть 2 memo есть один button нужно что бы при клике на button текст что находится в memo1 все в нем удалялось после ":" и в memo2 записовалось только то что было до ":". Подробней - есть база мыл mail : pass нужно отделить что бы было только mail

 

примерно так:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to Memo1.Lines.Count-1 do
try
Memo2.Lines.Add(copy(Memo1.Lines[i], 1, pos(':', Memo1.Lines[i])-1));
except
end;
end;

 

По-моему неправильно сформулировано что нужно сделать.

PHP:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Lines.NameValueSeparator := ':';
  Memo2.Clear;
  for I := 0 to Memo1.Lines.Count - 1 do
    begin
      Memo2.Lines.Add(Memo1.Lines.ValueFromIndex[i]);
      Memo1.Lines[i] := Memo1.Lines.Names[i];
    end;
end;

я понял все так

upd:
мм ээ, вообще если тебе надо просто разделить такое редактором типа NotePad++ элементарно делается

 

Всем спасибо, разобрался!