Разделить строку до ";" и после

[Coobik]

В общем, гуглил этот вопрос, и по разным запросам не нашёл ничего стоящего.
А помощь нужна.

Имеется memo в нём строки примерно такого содержания -

479381637;iuyda213
479381638;iusdc5h3
479381639;zhyq1784
и так далее

Нужно разделить цифры до ";" и поместить их в одно мемо, а после символа ";" в другое мемо. Сам символ, разделитель ";", нужно удалить.

Сам пробовал что то написать, но не выходило...
Поэтому прошу помощи у вас.

[ArtGrek]

вот тебе самая нужная инфа теперь думаи, если что непонятно спрашиваи, а код сам пиши

copy(stroka:strin, pozicia:integer, dlina:integer):string;
pos(podstroka:string; stroka:string):integer;
length(stroka:string):integer;
delete(stroka:string;pozicia:integer;dlina:integer);

[Serge_Bliznykov]

for i:=0 to Memo1.Lines.Count-1 do begin
  s := Memo1.Lines[i];
  p1 := Pos(';',s);
  if p1>0 then begin
     Memo3.Lines.Append(Copy(s,p1+1, Length(s)-p1));
     Delete(s, p1, Length(s)-p1+1);
  end;
  Memo2.Lines.Append(s);
end;

[Coobik]

Спасибо за помощь.
Воспользовался примером Serge_Bliznykov, спасибо.
Тема более не актуальна.

[Sibedir]

Она вечна