CONTOH PROGRAM DELPHI( MENAMPILKAN BILANGAN GANJIL ATAU GENAP)

          contoh skrip program nya
       procedure TForm1.Button1Click(Sender: TObject);
          var x:Integer;
      begin
          x:=StrToInt(Edit1.Text);
          if x mod 2=0 then Label1.Caption:='Genap'
      else
          Label2.Caption:='Ganjil';

         end;

       procedure TForm1.Timer1Timer(Sender: TObject);
      Var a:integer;
      begin
  Label5.Caption:=FormatDateTime('hh:mm:ss',now);

    //menampilkan tulisan berjalan
  Label3.Left:=Label3.Left-20;


   //mengganti warna dengan timer
    a:=StrToInt(Label6.Caption);
    a:=a+1;
    Label6.Caption:=IntToStr(a);
    if Label6.Caption='0' then
    Form1.Color:=clWhite

else
  if Label6.Caption='1' then
  Form1.Color:=clBlue
else
  if Label6.Caption='2' then

begin
     Label6.Caption:='0';
     Form1.Color:=clWhite;

 

end;
end;

end.

Semoga bermanfaat buat semua nya,,,,semangat mencoba iya,,,,bingung tanya kan???/