Конечно можно...
Создай массив записей вида
Код:
type
MyRecord : record;
Number : word;
Name : string;
end;
var
Arr : array of Myrecord;
Каждому Number присвой Name...Заметь массив динамический...
Далее по циклу проверь
Код:
for i := 0 to Length(Arr)-1 do
if StrToInt(Edit1.Text) = Arr[i].Number then
Edit2.Text := Arr[i].Name;
Как то так...