combox et edit استخدام

[makhlouf]

السلام عليكم و رحمة الله تعالى و بركاته:
أخي يمكنك الفلترة باستخدام الكود ثم جعل edit تحمل اسم التلميذ
جرب هذا اكود لعله ينفع:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
table1.Filtered:=false;
table1.Filter:='';
table1.Filter:='EmpNo='''+combobox1.Text+'''';
table1.Filtered:=true;
edit1.Text:=table1.fieldbyname('LastName').asstring;
end;

بالتوفيق