Este código es super lento

[strelok]

El extraerID se los dejó por aquí:

var
IDprov: String;
i: Integer;
begin
   IDprov := '';
   i := 0;

   for i:= 1 to length(dato) do
   begin
      if(dato[i] = '-') then Break
      else IDprov := IDprov + dato[i];
   end;

   result := IDprov;
end;