Помогите пожалуйста исправить ошибку в коде!
Здравствуйте. Исходный код не мой. Суть в том, что первая форма отображается и по таймеру переходит на другую. Хотела чтоб вместо таймера была авторизация. вроде всё написала что ненужно закоментила но программа работает в прежнем режиме либо вовсе выдаёт ошибку при компилировании. что я упустила?
unit UnitFormStart;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls, Buttons;
type
TFormStart = class(TForm)
Image1: TImage;
Edit1: TEdit;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
//procedure Timer1Timer(Sender: TObject);
// procedure FormPaint(Sender: TObject);
//procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormStart: TFormStart;
implementation
uses Start, UnitFormStart;
{$R *.dfm}
//procedure TFormStart.Timer1Timer(Sender: TObject);
//begin
//Timer1.Enabled := False;
//end;
//procedure TFormStart.FormPaint(Sender: TObject);
//begin
// Убераем Caption у формы
//Canvas.Brush.Style := bsClear;
//Canvas.Rectangle(0, 0, Width, Height);
//end;
//procedure TFormStart.FormCloseQuery(Sender: TObject;
//var CanClose: Boolean);
//begin
//CanClose := Not Timer1.Enabled;
//end;
procedure TFormStart.SpeedButton1Click(Sender: TObject);
var e1,e2:string;
begin
....
end.
uses Start;
uses UnitFormStart;
uses Start;
uses UnitFormStart;