In Delphi 7, how do I escape a percent sign (%) in the Format function?

SQL.Text := Format('select foo from bar where baz like ''%s%''',[SearchTerm]);

SQL.Text := Format('select foo from bar where baz like ''%s''',[SearchTerm+'%']);

SQL.Text := Format('select foo from bar where baz like ''%s%%''',[SearchTerm]);