Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False);

Procedure TFRacesso.CriaStartup(ControleFinanceiro : String);
var Reg : TRegistry;
Begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);
  Reg.WriteString(ControleFinanceiro, ParamStr(0));
  Reg.CloseKey;
  Reg.Free;
End;

Procedure TFRacesso.CriaStartup(ControleFinanceiro : String);
var Reg : TRegistry;
Begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
  Reg.WriteString(ControleFinanceiro, '"' + ParamStr(0) + '"');
  Reg.CloseKey;
  Reg.Free;
End;

Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);

Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);

IBQuery1.Close;
IBQuery1.SQL.Add('Select * From Tabela Where DTAVVCTO <:nData');
IBQuery1.Params[0].Value := Date;
IBQuery1.Open;

If not (IBQuery1.RecordCount > 0) then
   Application.Terminate;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BTcancelarClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure BTiniciarsmsClick(Sender: TObject);
    Procedure CriaStartup(LembreteDoc : String);
    procedure DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid3DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRlembrdoc: TFRlembrdoc;

implementation

{$R *.dfm}

Procedure TFRlembrdoc.CriaStartup(LembreteDoc : String);
var Reg : TRegistry;
Begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
  Reg.WriteString(LembreteDoc, '"' + ParamStr(0) + '"');
  Reg.CloseKey;
  Reg.Free;
End;

procedure TFRlembrdoc.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   TBcaddoc.Close;
   TBcadequip.Close;
   TBcadextintor.Close;
   IBContrSMS.Connected:=False;
   Action := caFree;
   FRlembrdoc := NIL;
end;

procedure TFRlembrdoc.BTcancelarClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TFRlembrdoc.FormShow(Sender: TObject);
begin
  IBContrSMS.Connected:=True;
  If (not IBTransaction1.InTransaction)then
  IBTransaction1.StartTransaction;
//  CriaStartup('LembreteSMS');
  Edit1.Text := DateToStr(Date);

  TBcaddoc.Open;
  TBcaddoc.IndexFieldNames := 'DTAVVCTO';
  TBcaddoc.Filtered:=False;
  TBcaddoc.Filter:= 'DTAVVCTO <'+QuotedStr(FormatDateTime('MM/dd/yyyy', StrToDate(Edit1.Text)));
  TBcaddoc.Filtered:=True;

  TBcadequip.Open;
  TBcadequip.IndexFieldNames := 'DTAVCALIBR';
  TBcadequip.Filtered:=False;
  TBcadequip.Filter:= 'DTAVCALIBR <'+QuotedStr(FormatDateTime('MM/dd/yyyy', StrToDate(Edit1.Text)));
  TBcadequip.Filtered:=True;

  TBcadextintor.Open;
  TBcadextintor.IndexFieldNames := 'DTAVRECARGA';
  TBcadextintor.Filtered:=False;
  TBcadextintor.Filter:= 'DTAVRECARGA <'+QuotedStr(FormatDateTime('MM/dd/yyyy', StrToDate(Edit1.Text)));
  TBcadextintor.Filtered:=True;

  If (TBcaddocDTAVVCTO.Text = '') And (TBcadequipDTAVCALIBR.Text = '') And (TBcadextintorDTAVRECARGA.Text = '') then
  Application.Terminate;
end;

procedure TFRlembrdoc.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   If TBcaddoc.Fieldbyname('DTAVVCTO').Value<Date then
   Begin
   DBGrid1.Canvas.Font.Color := clRed;
   DBGrid1.DefaultDrawDataCell(Rect, DBGrid1.columns[datacol].field, state);
   end;
end;

procedure TFRlembrdoc.BTiniciarsmsClick(Sender: TObject);
begin
  WinExec('C:\Documents and Settings\Administrador\Meus documentos\Valdecir\VdlSistemasfontes\VDL - Controle SMS\ControleSMS.exe', SW_SHOWNORMAL);
  FRlembrdoc.Close;
end;

procedure TFRlembrdoc.DBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   If TBcadequip.Fieldbyname('DTAVCALIBR').Value<Date then
   Begin
   DBGrid2.Canvas.Font.Color := clRed;
   DBGrid2.DefaultDrawDataCell(Rect, DBGrid2.columns[datacol].field, state);
   end;
end;

procedure TFRlembrdoc.DBGrid3DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
if ((TBcadextintor.Fieldbyname('DTAVRECARGA').Value<Date) or (TBcadextintor.Fieldbyname('DTAVTESTEHIDR').Value<Date)) then
   Begin
   DBGrid3.Canvas.Font.Color := clRed;
   DBGrid3.DefaultDrawDataCell(Rect, DBGrid3.columns[datacol].field, state);
   end;
end;

end.]

var
  BaseDown : boolean;
begin
  baseDown:=True;
  repeat
  try
    IBContrSMS.Connected:=True;
    BaseDown:=false;
  except BaseDown:=true;
  end;
  Sleep(400);
  until not(BaseDown);
  .
  .
  .
end;

var iVezes:Byte;
begin
  iVezes := 0;
  While not IBContrSMS.Connected and (iVezes < 25) do
  begin
    try
      IBContrSMS.Open;
    except
      Inc(iVezes);
      Sleep(400);
    end;
  end;
  if not IBContrSMS.Connected then
    IBContrSMS.Open; // Força a exceção para ver o erro
end;