delphi 加字符串相加

procedure TForm1.Button2Click(Sender: TObject);
var
name:String ;
begin
name := edit2.Text ;
name := '%' + name ;
query1.Close ;
query1.SQL.Clear ;
query1.SQL.Add('select * from gjh_t where name like '''+name+'''') ;
query1.Open ;

end;

select * from gjh_t where name like '+name+'

应该改为

select * from gjh_t where name like '''+name+''')