[pesi]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 s, god, st : string;
 str : TStringList;
 i : integer;
begin
memo2.Clear;
str := TStringList.create;

 for i:=1 to memo1.Lines.Count-1 do
  begin
   s:=memo1.Lines.Strings[i]; // в memo1 загружены строки
   str.text := stringReplace(s, ';', #13#10, [rfReplaceAll]);

   st:=str[6];
    if st[1] = '0' then
      if st[2] ='0' then
        if st[3] = '0' then
          if st[4] = '0' then delete(st, 1, 4)
          else delete(st, 1, 3)
        else delete(st, 1, 2)
     else delete(st, 1, 1);

   god:=str[1] + ';' + str[3] +';' + str[0] + ';'
      + str[2] + ';' + str[5] + ';' + StringReplace(str[4], '-', '', [rfReplaceAll]) + ';' + st + ';' ;
   memo2.Lines.Add(god); //в memo2 зугружаем готовые строки
  end;
 str.free
end;