Pyramide zeichnen

[me2u]

Hi,

ich soll in Informatik eine (möglichst große) Pyramide in Delphi zeichnen.

Ich hab das jetzt auch soweit, dass pro Zeile immer mehr Sternchen (meine Pyramidenbauteile ) dazukommen, jedoch geht das nur in eine Richtung und man müsste eben noch Leerzeichen einfügen, dass der oberste Punkt der Pyramide genau in der Mitte ist.

http://www.directupload.net/images/070315/Gg2uDMTn.jpg

Das ist mein Problem, denn ich weiß absolout nicht wie es geht. Ich habe zwar schon mit einer zweiten FOR Schleife expeimentiert, aber dann hatte ich es genau andersrum, also dass die Pyramide pro Zeile am Anfang immer mehr Leerzeichen bekommt.

Hier mal mein Code, soweit ich ihn für durchschaubar halte ^^

Code:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    pnlTitel: TPanel;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var y : integer;
    i : integer;
    zeile : string;

begin
  y := 0;
  Memo1.Lines.Clear;
  while y < Memo1.Height do
    begin
      zeile := '';
      for i := 0 to (y div 15) do
        begin
          zeile := zeile + '*'
        end;

      Memo1.Lines.Add (zeile);
      y := y + 15;
    end;
end;

end.

Wenn ihr wollt, könnt ihr euch alle Delphi Dateien auch vom Webspace von mir ziehen: http://ironthunder.ir.funpic.de/Pyramide.rar

Hoffe, ihr könnt mir helfen.

Mit freundlichen Grüßen
me2u