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;