Problem mit Klassenmethoden

[billi]

auf die Idee mit Klassenmethoden bin ich dank der Fehlermeldnug gekommen...
eigendlich funzt auch alles, aber das hier geht immer noch nicht:

Code:

procedure TLayout.LayoutLoad;
var
  farbe, R, G, B: string;
begin
  farbe := TEdit(FindComponent('TLayout.E' + name)).text;
  R := copy(farbe, 2, 2);
  G := copy(farbe, 4, 2);
  B := copy(farbe, 6, 2);
  TShape(FindComponent('TLayout.S' + name)).Brush.Color := StringToColor('$00' + B + G + R);
end;

ebenso das:

Code:

procedure TLayout.LayoutLoad;
var
  farbe, R, G, B: string;
begin
  farbe := TEdit(TLayout(self).FindComponent('E' + name)).text;
  R := copy(farbe, 2, 2);
  G := copy(farbe, 4, 2);
  B := copy(farbe, 6, 2);
  TShape(TLayout(self).FindComponent('S' + name)).Brush.Color := StringToColor('$00' + B + G + R);
end;

und das:

Code:

procedure TLayout.LayoutLoad;
var
  farbe, R, G, B: string;
begin
  farbe := TEdit(FindComponent('TLayout(self).E' + name)).text;
  R := copy(farbe, 2, 2);
  G := copy(farbe, 4, 2);
  B := copy(farbe, 6, 2);
  TShape(FindComponent('TLayout(self).S' + name)).Brush.Color := StringToColor('$00' + B + G + R);
end;

Das liegt wohl daran, wo ich suche...

[edit]
kannst du mir das mal erklären, bin noch nicht soo der superheld in delphi (DialogSeite As TLayout)
[/edit]