Código Delphi [-]
function IntrodujoCantidad: Boolean;
begin
  Result := False;
end;

var
  FormCaja: TForm3;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  if not IntrodujoCantidad then
  begin
    FormCaja := TForm3.Create(NIL);
    try
      FormCaja.ShowModal;
    finally
      FormCaja.Free;
    end;
  end;

  Application.Run;
end.

Código Delphi [-]
program Project1;

uses
  Forms, Windows, SysUtils, Registry,
  Unit1 in 'Unit1.pas' {frmMain},
  Unit2 in 'Unit2.pas' {frmDailyCashBox};

{$R *.res}

function isSetDailyCashBox: Boolean;
const
  KNAME = 'SoftWare\Your_App_Name\DailyCashBox';
  VNAME = 'LastUpdate';
var
  rg: TRegistry;
  dt: TDateTime;
begin
  rg         := TRegistry.Create;
  rg.RootKey := HKEY_CURRENT_USER;
  dt         := 0;
  rg.OpenKey(KNAME, True);
  try   
    if not rg.ValueExists(VNAME) then
      rg.WriteDate(VNAME, dt);
    dt     := rg.ReadDate(VNAME);
    Result := dt = Date;
    rg.WriteDate(VNAME, Date);
  finally
    rg.CloseKey;
  end;
end;

begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.ShowMainForm := False;

  if not isSetDailyCashBox then
  begin
    frmDailyCashBox := TfrmDailyCashBox.Create(nil);
    try
      frmDailyCashBox.ShowModal;
    finally
      frmDailyCashBox.Free;
    end;
  end;

  Application.ShowMainForm := True;
  Application.Run;
end.

Código Delphi [-]
...
begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain); // frmMain es el principal

Código Delphi [-]
...
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1); // Form1 es el principal

Código SQL [-]
SELECT TOP 1 * FROM Tabla
ORDER BY FechaCaja DESC

Código Delphi [-]
    Formlogin := TFormloginCreate(NIL);
    try
      Formlogin.ShowModal;
    finally
      Formlogin.Free;
    end;

Código Delphi [-]
    if (edtusuario.Text='') or (edtpassword.Text='') then
      begin
      ShowMessage('Rellene los campos necesarios');
      end

    else

    begin
    if (edtusuario.Text=ADOingresa.FieldByName('nombuser').asstring) and (edtpassword.Text=password) then
      begin
      Muser:= ADOingresa.FieldByName('idusuario').asinteger;
      form20.Close;
      end

    else

    begin
    ShowMessage('Datos incorrectos, verifique su usuario o contraseña');
    end;
    end;

Código Delphi [-]
Application.terminate