Ya está medio resuelto:
Por si sirve a alguien pongo el código:
Código Delphi
[-]procedure TForm1.BitBtn1Click(Sender: TObject);
var restr,cmpstr:string;
valreal: double;
salida:boolean;
begin
restr:=Label.Caption;
salida:=false;
With DataModule10.ADOTable1 do
try
Open;
First;
While (not EOF) and (not salida) do
Begin
cmpstr:= FieldByName('Tabla1Col1').AsString;
valreal:= FieldByName('Tabla2Col2').AsFloat;
if cmpstr >=restr then
begin
salida:=true;
with Datamodule10.ADOTabla2 do
begin
edit;
fieldbyname('Tabla2Col1').asstring:=restr;
fieldbyname('Tabla2Col2').asFloat:=valreal;
end;
end;
Next;
End;
Close;
except
end;
end;
end;
Esto vale porque los datos de tiempos de tabla 1 están ordenados de menor a mayor (cmpstr).
¿Existe alguna forma en el caso en que no estuvieran ordenados de mayor a menor de que al recorrer la tabla los ordene automáticamente?
¿Hay otra manera más rápida que la anterior?
A ver si hay alguien que me puede ayudar.
Gracias..