[Bargest]

исходник - врятли... разве что так, набрость...

Код:

var f:text;
...
procedure TForm1.ButtonOKClick(sender:TObject);
var i,k,t,err:integer;
     s,ns:AnsiString;
begin
 i:=ComboBox1.ItemIndex;
 if i<0 then exit; // ниче не выбрано
 assignfile(f,'База.txt');
 reset(f);
 while not eof(f) do
 begin
  readln(f,s);
  k:=pos(' ',s);
  if k>0 then
  begin
   ns:=copy(s,1,k-1);
   delete(s,1,k);
   val(ns,t,err);
   if err=0 then
    if t = i+1 then 
     while (not eof(f))and(s<>'') do
     begin
      readln(f,s);
      Memo1.Lines.Add(s);
     end;
  end;
 end;
 closefile(f);
end;

По идеи это будет работать в случае, если номера записей в БД такие, как в ComboBox, только на единицу больше.