DxDraw linien zeichnen

[Die Muhkuh]

Delphi-Quellcode:

procedure TMainFrm.DxTimerTimer(Sender: TObject; LagCount: Integer);
begin
  SpriteEngine.Draw;
  SpriteEngine.Move(0);
  Input.Update;

  with Draw.Surface.Canvas do begin
    Brush.Color := clLime;
    Pen.Color := clLime;  // Damit sollte das gehen
    MoveTo(10,10);
    LineTo(100,100);
    Release;
  end;

  Draw.Flip;
end;