FreePascal.ru

http://www.freepascal.ru/forum/viewtopic.php?t=9301&p=74625

Я сделал так (на Lazarus):
//для события SQLQuery1.OnFilterRecord
procedure TForm2.SQLQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
s1,s2:UnicodeString;
begin
s1:=SQLQuery1.FieldByName('field_name').Value;
s2:=Edit2 ...