contoh Program delphi membuat bintang belah ketupat

Sintaq Dalam delphi :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    lst1: TListBox;
    btn1: TButton;
    img1: TImage;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var a,b : integer;
star :string;
begin
a:=1;
while a<=5 do
begin
  b:=5;
  while b>=a do
  begin
    b:=b-1;
    star:=star+'*';
  end;
  b:=1;
  while b<=(a*2)-1 do
  begin
  b:=b+1;
  star:=star+' ';
  end;
   b:=5;
  while b>=a do
  begin
    b:=b-1;
    star:=star+'*';
  end;
  lst1.Items.Add(star);
  star:='';
  a:=a+1;
  end;
 begin
  a:=1;
while a<=5 do
begin
  b:=1;
  while b<=a do
  begin
    b:=b+1;
    star:=star+'*';
  end;
  b:=9;
  while b>=(a*2)-1 do
  begin
  b:=b-1;
  star:=star+' ';
  end;
   b:=1;
  while b<=a do
  begin
    b:=b+1;
    star:=star+'*';
  end;
  lst1.Items.Add(star);
  star:='';
  a:=a+1;
  end;
end;



end;

end.