[Страдалецъ]

Можно сделать это несколько иначе,если воспользоваться функцией WrapText:

Код:

procedure TForm5.Edit1Change(Sender: TObject);
Var S: TStringList;
begin
 S := TStringList.Create;
 S.Text := WrapText(Edit1.Text,#13#10,[':'],1);
 S.Text := StringReplace(S.Text,':','',[rfReplaceAll]);
 Edit2.Text := '';
 if S.Count > 1 then Edit2.Text := S.Strings[1];
 S.Free;
end;