also wie gesagt, bin noch nicht soweit in delphi. aber wenn ich das richtig interpretiere, hier.
Delphi-Quellcode:
{vorschaubild entfernen}
procedure Tfenster.weg(Sender :TObject);
var b :integer;
begin
if sender is timage then
begin
b := strtoint((sender as timage).HelpKeyword);
[i]back.Components[b].Free;[/i]
end;
end;