[Страдалецъ]

Ну если делать так как говорит Imikle то примерно так:

Код:

if Table1.Filter = ''
then Table1.Filter := 'Power >= ' + Edit1.Text
else Table1.Filter := Table1.Filter + ' and Power >= ' + Edit1.Text;
Table1.Filtered := True;

А вот для вывода результатов лучше воспользоваться компонентом TDBGrid, а не TStringGrid
Но если очень хочется именно через TStringGrid то так:

Код:

 StringGrid1.RowCount := Table1.RecordCount + 1;
 StringGrid1.ColCount := Table1.Fields.Count;
 for Col := 0 to StringGrid1.ColCount - 1
 do StringGrid1.Cells[Col,0] := Table1.Fields[Col].FieldName;

 for Row := 1 to StringGrid1.RowCount - 1
 do begin
    for Col := 0 to StringGrid1.ColCount - 1
    do StringGrid1.Cells[Col,Row] := Table1.Fields[Col].asString;
    Table1.Next;
   end;