[pborges36]

Muchas gracias Neftali, Es exactamente lo que necesitaba. El codigo quedo mas o menos asi:

Código Delphi [-]
var
  Form1: TForm1;
  cancelado:boolean;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if Key=#27 then //se cancela con la tecla escape
      cancelado:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Int64;
  Excel: Variant;
  Archivo,op:string;
begin
    try
      Excel := CreateOleObject('Excel.Application');
    except
      Excel.Quit;
      showmessage('No se pudo crear el Objecto Excel.');
      raise;
    end;
    if OpenDialog1.Execute then
      Archivo:= OpenDialog1.FileName
    else
      exit;
 cancelado:=false;  
    lblarchivo.Caption:='Importando archivo: '+Archivo;
    Excel.Workbooks.Open(Archivo);
    i:=1;
    repeat
        c1:=Excel.Cells[i,1].Value;
  //INGRESO LOS REGISTROS A MI BASE DE DATOS
  inc(i);
  lblregistros.Caption:=IntToStr(i)+' Registros leidos';
  lblregistros.Repaint;
  op:=Excel.Cells[i,1].Value;
  Application.ProcessMessages;
 until (op=eof.Text) or (cancelado);
  try
  Excel.quit;
  Excel.Free;
  except
  end;
end;

solo me resta agregar que la propiedad Keypreview del form esta en true.
Muchas Gracias!!