[Snake22]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var num1,num2, num:string;
i:integer;
begin
num:='00002';
for i:=1 to Length(num) do
    //перебираем все цифры числа и ищем где кончатся нули и начнутся цифры отличные от нуля
    if num[i]<>'0' then
       begin
       num1:=Copy(num,1,i-1);
       num2:=Copy(num,i,Length(num));
       break;
       end;
ShowMessage('Число1: '+num1+' Число2: '+num2);
end;