Lazarus исправте код!

[kolian2000]

У меня пустое окно!

[grandmixer]

из коммента выше тоже код не подошел? У меня просто между repeat until блок был в begin end заключен и тоже не показывалось, а я это убрал и рисунок показался.

[kolian2000]

Напиши рабочий код пожалуйста!

[grandmixer]

вот рабочий код (толькочто открыл лазурас вставил картинку и растянул на всю форму и все робит):

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
Graph;

type

{ TForm1 }

TForm1 = class(TForm)
  Image: TImage;
  procedure FormCreate(Sender: TObject);
  procedure ImageClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1;
i,j:smallint;
x,y:real;
a,b,xc,yc,t:real;
xe,ye,Mx,My:Smallint;
maxX,maxY,minx,miny:real;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  Mx:=800;
  My:=640;
  t:=0;
  i:=detect;
  initgraph(i,j,'');
  maxX:=9;
  maxY:=9;
  minX:=-9;
  minY:=-9;
  Repeat
        x:=2.0*cos(t);
        y:=3.0*sin(t);
        xe:=round((x-minx)/(maxx-minx)*Mx);
        ye:=round(My-(y-miny)/(maxy-miny)*My);
        Image.Canvas.Pixels[xe,ye]:=255;
        t:=t+0.01;
  until t>2;
end;

procedure TForm1.ImageClick(Sender: TObject);
begin

end;


end.

Если что не так ничем больше не могу помочь.