Código Delphi [-] if Pos('*', TablaCAMPO.Text ) > 0 then ...
if Pos('*', TablaCAMPO.Text ) > 0 then ...