[Casimiro Notevi]

Close;
SQL.Clear;
SQL.Add(Cad);
ExecSQL;
Active := true;
Last;

También ten en cuenta que eso está mal y será más o menos así:

Código Delphi [-]
Close;
SQL.Text:=Cad; // asignas el select
Open;  // open, porque será un select. (execsql es para ejecutar insert, delete, update)
Last;  // vas al último registro