[angvelem]

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  x  : Single = 3.051522;
  y  : Single = 1.582542;
  z  : Single = 15.62388;
  dt : Single = 0.0001;
  a  : Integer = 5;
  b  : Integer = 15;
  c  : Integer = 1;
  x1, y1, z1 : Single;

procedure TForm1.FormPaint(Sender: TObject);
begin
  x1 := x + a * (-x + y) * dt;
  y1 := y + (b * x - y - z * x) * dt;
  z1 := z + (-c * z + x * y) * dt;
  x  := x1;
  y  := y1;
  z  := z1;
  Image1.Canvas.Pixels[Round(19.3 * (y - x * 0.292893) + 320),
                       Round(-11 * (z + x * 0.292893) + 392)] := 9;
end;

end.

Что-то рисует.