Fórum Carregar tabela com RTTI #415960

Estou aprendendo como trabalhar com rtti e estou com algumas dificuldades, até consegui fazer um insert e update e não estou conseguindo fazer uma forma de eu passar o código de certa tabela ele mapear a tabela e preencher a classe com o resultado.

Código insert para ter uma idéia de como estou fazendo:

class function TPersist.Inserir(pObjeto: TObject): Boolean;
var
Query : TSQLQuery;
Contexto : TRttiContext;
Tipo : TRttiType;
Propriedade : TRttiProperty;
Atributo : TCustomAttribute;
ConsultaSQL, CamposSQL, ValoresSQL: String;
begin
Contexto := TRttiContext.Create;
try
Tipo := Contexto.GetType(pObjeto.ClassType);

//localiza o nome da tabela
for Atributo in Tipo.GetAttributes do
begin
if Atributo is TTabela then
ConsultaSQL := INSERT INTO + (Atributo as TTabela).Nome;
end;

//preenche os nomes dos campos e valores
for Propriedade in Tipo.GetProperties do
begin
for Atributo in Propriedade.GetAttributes do
begin
if Atributo is TCampo then
begin
CamposSQL := CamposSQL + (Atributo as TCampo).Nome + ,;
ValoresSQL := ValoresSQL + QuotedStr(Propriedade.GetValue(pObjeto).ToString) + ,;
end;
end;
end;

//retirando as vírgulas que sobraram no final
Delete(CamposSQL, Length(CamposSQL), 1);
Delete(ValoresSQL, Length(ValoresSQL), 1);

ConsultaSQL := ConsultaSQL + ( + CamposSQL + ) VALUES ( + ValoresSQL + );

Query := TSQLQuery.Create(nil);
try
Query.SQLConnection := Conn;
Query.sql.Text := ConsultaSQL;
Query.ExecSQL();
finally
Query.Free;
end;
Result := True;
finally
Contexto.Free;
end;
end;

Classe:

unit uBancos;

interface

uses uAttributes;

type
[TTabela(BANCO)]
TBanco = class
private
fBanco : String;
fId : Integer;
public
[TCampo(CODIGO)]
property Id : Integer read fId write fId;

[TCampo(BANCO)]
property Banco : String read fBanco write fBanco;
end;

implementation

end.