const
isimler : array[1..10] of string = ('Ahmet','Ayşe','Burhan','İrem','Can','Kemal',
'Fatma','Selda','Murat','Semih');
soyadlar: array[1..10] of string = ('Aktaş','Yıldırım','Menteş','Ozden',
'Kıymaz','Bostancı','Sevim','Balcı','Cakır','Kar am an');

for i:=1 to 40 do // listbox2 ye 40 tane değer ekler
begin
listbox2.Items.Add (inttostr(i] ' ' + inttostr( 100 + random(899)] ' '
+ isimler[ random(9]1 ] + ' '
+ soyadlar[ random(9]1 ] + ' '
);
end;

type
ogrenciler = record
ad,soyad : string[10];
no : integer;
end;

arkadaşlar ya bir turlu bu yukarıda rastgele tanımladığım değerleri bir turlu record a aktaramadım yardım ederseniz sevinirimmm ama dongu şeklinde olursa sevinirim şimdiden teşekkurler
__________________