Una busqueda secuencial con ese array sería muy muy rápida. Algo como esto:
Código Delphi
[-]
type
Tncod_trabajo = array [1..250] of string;
function ExisteRegistro(const Reg: TNcod_trabajo; const Registro: string): boolean;
var
i: integer;
begin
result:= false;
for i:= 1 to 250 do begin
If Registro = Reg[i] then
begin
result:= true;
break;
end;
end;
end;
Salu2