procedure TForm2.BitBtn1Click(Sender: TObject);
begin
IF (EDIT1.TEXT='BRINDICYS') AND (EDIT2.TEXT='BRA') then
BEGIN
SHOWMESSAGE ('BIENVENIDOS AL SISTEMA');
form3.Show;
form2.Hide;
END;
END;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
STATUSBAR1.PanelS[0].Text:='FECHA:'+DATETOSTR(DATE);
STATUSBAR1.Panels[1].Text:='HORA:'+TIMETOSTR(NOW);
STATUSBAR1.Panels[2].Text:='POLITECNICO: BRINDICYS ROSARIO ALBERTO M.A.';
end;
end.
