procedure TFormBab2.FormCreate(Sender: TObject);
type
 TRecBuku = record
   Judul : string;
   Pengarang : string;
   Jumlah : byte;
  end;
var
Buku : TRecBuku;
begin
//Pemberian Nilai ke Field Milik Buku
  Buku.Judul := 'Pascal';
  Buku.Pengarang := 'Abdul kadir';
  Buku.Jumlah:=5;

//Tampilkan isi buku
LabelInfo.Caption := 'Judul : ' + Buku.Judul + #13#10 +
              'Pengarang :  ' + Buku.Pengarang + #13#10 +
              'Jumlah : ' + IntTostr(Buku.Jumlah);
end;

end.