Nombre componente en variable mas problemas

[camino]

Hola amigos
Felizmente he podido guardar en tablas las caracteristicas de los RichEdit utilizado "FindControl" y "FindComponent".

En la tabla guarde el nombre de los TRichEdit que los renombre como "Tecla1", "Tecla2" y asi sucesivamente.


Pero cuando quiero cargar los RichEdit con los datos guardados en tabla me da mensaje de error.

Código Delphi [-]procedure TPuntodeVentaForm.Button1Click(Sender: TObject);
var ComponentT : TComponent; VarEdit : string;
begin with datamodule2 do begin IbQuery3.Close; IbQuery3.SQL.Clear; IbQuery3.SQL.Add('Select * from MenuTeclas where Id_Producto <> 0');
IbQuery3.Prepare;
IbQuery3.Open;
if IbQuery3.EOF then Exit; IbQuery3.First; while not IbQuery3.EOF do begin VarEdit := IbQuery3.FieldByName('Id_Tecla').AsString;
componentT := FindComponent(VarEdit) as TRichEdit;
if Assigned( componentT ) then begin with componentT as TRichEdit do begin TRichEdit(componentT).Clear; TRichEdit(componentT).Lines.Add(IbQuery3.FieldByName('Linea1').asString);
TRichEdit(componentT).Lines.Add(IbQuery3.FieldByName('Linea2').asString);
TRichEdit(componentT).Lines.Add(IbQuery3.FieldByName('Linea3').asString);
TRichEdit(componentT).Lines.Add(IbQuery3.FieldByName('Linea4').asString);
end;
end else MessageDlg(VarEdit + ' No Asignado', mtwarning,[mbOk],0);
IbQuery3.Next;
end;
IbQuery3.Close;
end;
end;

En un principio tenia la rutina en el Evento OnShow de la Form, pero para experimentar ejecuto la rutina con un Boton colocandole ademas la prueba si esta asignado.

Fracaso.
Si pueden ayudarme por favor haganlo.
Gracias.