[rogercito]

Código Delphi [-]
unit Unit23;
nterface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, DBCtrls, StdCtrls, Mask;
type
  TForm23 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DataSource1: TDataSource;
    Table1: TTable;
    DBLookupComboBox2: TDBLookupComboBox;
    DataSource2: TDataSource;
    Table2: TTable;
    Button1: TButton;
    Button2: TButton;
    Label5: TLabel;
    Label6: TLabel;
    Button3: TButton;
    DataSource3: TDataSource;
    Table3: TTable;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    procedure MsgHoraSalida(var Msg: TMessage); message WM_USER + 300;
    procedure MsgHoraLlegada(var Msg: TMessage); message WM_USER + 301;
    { Private declarations }
  public
  end;
var
  Form23: TForm23;

implementation{$R *.DFM}

uses Unit24, Unit25;

procedure TForm23.FormCreate(Sender: TObject);
begin
  table1.active:=true;
  table2.active:=true;
  button2.visible:=false
end;

procedure TForm23.Button1Click(Sender: TObject);
begin
  if (dblookupcombobox2.keyvalue) = 4 then
  begin
    form24.show
  end
  else
  if  (dblookupcombobox2.keyvalue) = 2 then
  begin
    form25.show
  end
  else
    showmessage('no existen localidades intermedias');
end;

procedure TForm23.Button3Click(Sender: TObject);
begin
  button2.visible:=true
end;

procedure TForm23.MsgHoraSalida(var Msg: TMessage);
begin
  Edit1.Text:= PChar(Msg.LParam);
end;

procedure TForm23.MsgHoraLlegada(var Msg: TMessage);
begin
  Edit2.Text:= PChar(Msg.LParam);
end;

end.