Знаю что причин много, но не понятно в чем сейчас. на форме тоько image1 у нее в событиях стоит OnPaint Image1Paint. в прграмме только
procedure TForm1.Image1Paint(Sender: TObject);
begin
image1.canvas.Rectangle(0,0,image1.Height,image1.Width);
end;
А ругается на project1.lpr
begin
{$I project1.lrs}
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
с выделением end.
