Suchfunktion - Alter

[delphiluc]

habe folgendes problem...
ich möchte bei meinem fußball datenbankprogramm eine such funktion einbauen mit der man mit dem Alter die Spieler eingrenzen kann!
habe mir das so vorgestellt, dass ich ein edit Feld Alter habe und darunter eine Radio Group wo man zwischen maximal und mindestens auswählen kann.

das problem ist nur, dass ich in der datenbank alle spieler mit ganzem Geburtsdatum z.b. 21.03.1982 als string eingegeben habe.
wie kann ich das jetzt machen?
habe mir gedacht irgendwie mit copy das jahr rausschneiden.... bitte helft mir

Delphi-Quellcode:

procedure TFormProgramm.BitBtn3Click(Sender: TObject);
var sqlstr,erg,source,target:string;
    rechnung:integer;
begin
if Cbsuchealter.Checked then Case rgalter.ItemIndex of
    0: begin
         source:=QSuche['Geburtsdatum'];
         Target := Copy(Source, 7, 4);
         rechnung:=2009-strtoint(EdsucheAlter.Text);
         QSuche['Geburtsdatum']:=target;
         sqlstr := sqlstr+'where Geburtsdatum > rechnung and';
       end;
    1: begin
         source:=QSuche['Geburtsdatum'];
         Target := Copy(Source, 7, 4);
         rechnung:=2009-strtoint(EdsucheAlter.Text);
         QSuche['Geburtsdatum']:=target;
         sqlstr := sqlstr+'where Geburtsdatum < rechnung and';
       end;
  end;

was wäre eure lösung??