procedure TfrmMainMenu.btnSearchClick(Sender: TObject);
var
  sFieldName,sSearchInfo:string;
begin
  sFieldName:=  cmbFieldNames.Text;

 if sFieldName='Field Names' then
 begin
   ShowMessage('Please Select A Vaild Field!!:(');
 end
 else
 begin
   sSearchInfo:=InputBox('Search for'+' '+ sFieldName,'Enter the '+' '+sFieldName,'') ;

    RunSql('SELECT *  FROM PackageTB  WHERE"'+sFieldName+'"="'+sSearchInfo+'" ') ;//Procedure to run Sql

 end; //Gets Data to Search from