bilgi transferi (sql)

procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * From Database Column a "'+Edit1.text+'%"');
Query1.Sql.Add('Select * From Database Column b "'+Edit1.text+'%"');
Query1.Sql.Add('Select * From Database Column c "'+Edit1.text+'%"');
Query1.Open;
Ouery2.Close;
Query2.Sql.Clear;
Query3.Open;

While Query.EOF do
 begin
 Query.FieldByName('a').AsString := Query2.FieldByName('a').AsString;
 Query.FieldByName('b').AsString := Query2.FieldByName('b').AsString;
 Query.FieldByName('c').AsString := Query2.FieldByName('c').AsString;
 query1.post
 
 end;
End;