Listbox a Türkçe karakterleri atamak

[maydin60]

procedure TForm1.FormCreate(Sender: TObject);
 var
i:Integer;
begin

for i:=0 to 25 do

  Listbox1.Items.Add(chr(i+97)) ;

end;


yukarıdaki kodlarla küçük harfleri listbox aktarıyorum ama.. türkçe küçük karakteleri pratik olarak nasıl atabilirim..?
Dizin kullanmammı gerekli

Kucuk_kar_dizisi :array of Char ['a','b','c'...]

[MuhammedYasir]

(21-04-2021, Saat: 00:08)maydin60 Adlı Kullanıcıdan Alıntı: procedure TForm1.FormCreate(Sender: TObject);
 var
i:Integer;
begin

for i:=0 to 25 do

  Listbox1.Items.Add(chr(i+97)) ;

end;


yukarıdaki kodlarla küçük harfleri listbox aktarıyorum ama.. türkçe küçük karakteleri pratik olarak nasıl atabilirim..?
Dizin kullanmammı gerekli

Kucuk_kar_dizisi :array of Char ['a','b','c'...]

Böyle bir şey mi?

procedure TForm52.LikaButton1Click(Sender: TObject);
var
 i: Integer;
const
 Kucuk_kar_dizisi: Array [1 .. 29] of String = ('a', 'b', 'c', 'ç', 'd', 'e',
   'f', 'g', 'ğ', 'h', 'ı', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'ö', 'p', 'r',
   's', 'ş', 't', 'u', 'ü', 'v', 'y', 'z');

begin
 for i := 1 to 29 do
   ListBox1.Items.Add(Kucuk_kar_dizisi[i]);

end;

[maydin60]

teşekkür ederim işimi gördü...