with Query1 do begin
   Sql.Close;
   Sql.Clear;
   Sql.Add('select * from voteinfo_table where RegNumber = '''+FindEdit1.Text'''    ');
   Open;
   RegNumber.Text := FieldByName('RegNumber').AsString;
   Age.Text            := FieldByName('age').AsString;
   if FieldByName('regnumber').AsInteger=0 then
      Sex1.Text := Sex1.Items[0]
   else
      Sex1.Text := Sex1.Items[1];
end;
이렇게 바꾸시면 될거 같습니다...
그럼 즐코하세욤...^^