Сортировка данных

[celovec]

В Memo1 у меня находится такой текст:

esfsdf;dsffs;dfdsf;4324;dsffs;
rsfdfs;34r32;dsfsdf;32434;dsffds;
gsfsdf;dsffs;dfdsf;4324;dsffs;
ssfdfs;34r32;dsfsdf;32434;dsffds;

Подскажите пожалуйста как с Memo1 удалить последние символы после ;
То есть должно получится так:

esfsdf;dsffs;dfdsf;4324;
rsfdfs;34r32;dsfsdf;32434;
gsfsdf;dsffs;dfdsf;4324;
ssfdfs;34r32;dsfsdf;32434;

Заранее огромное спасибо.

[Stilet]

Как всегда - циклами :

[I]procedure TForm1.Button1Click(Sender: TObject);
var i:integer; s:string;
begin
//********* FOR ******************
for i :=0 to Memo1.Lines.Count-1 do
begin
s:=memo1.Lines[i];
delete(s,length(s),1);
while s[length(s)]<>';' do delete(s,length(s),1);
memo1.Lines:=s;
end;
//******* END FOR ****************{}
end;