Artem Vos
S:16:56:33 02.05
R:16:56:38 02.05
у вас в pas 3 вот это
unit Unit3;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ExtCtrls;
type
{ TForm2 }
TForm2 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
procedure Image1Click(Sender: TObject);
private
public
end;
var
Form2: TForm2;
implementation
{$R *.lfm}
{ TForm2 }
procedure TForm2.Image1Click(Sender: TObject);
begin
end;
end.