1:

MyComponent.Free;                    

1:

Auf Anhieb würd ich sagen, mach deine Komponente doch einfach unsichtbar.                    

1:
2:
3:
4:

for i := form1.componentcount-1 downto 0 do
 if form1.components[i] is TMemoryButton then
  if not TMemoryButton(form1.components[i]).visible then 
     ...                    

1:
2:
3:
4:
5:

  Timer1 := TTimer.Create(Self  {Weiss nicht so genau}  );
  Timer1.Interval := 1;
  Timer1.Enabled := True;
  Timer1.OnTimer := ...
...                    

1:
2:

var
  Obj: TWinControl=nil;                    

1:
2:
3:
4:
5:
6:

if Sender is TWinControl then
begin
  Obj := (Sender as TWinControl);
  Timer1.Interval := 1;
  TImer1.Enabled := True;
end;                    

1:
2:
3:

if Obj<>nil then
  Obj.Free;
Timer1.Enabled := False;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

var
  Form1: TForm1;
  S: String;
  I: LongInt;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  S := TimeToStr(Now);
  Repeat
  Until S<>TimeToStr(Now);
  S := TimeToStr(Now);
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Inc(I);
  if S<>TimeToStr(Now) then
  begin
    Timer1.Enabled := False;
    ShowMessage(FloatToStr(1000/I) + ' ms-Interval wird erreicht.');
    Form1.Close;
  end;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

var
  Form1: TForm1;
  dummy: TMemo;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  dummy.Text := Button1.Name;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  dummy := TMemo.Create(Form1);
  dummy.Visible := False;
  dummy.Parent := Form1;
  dummy.OnChange := dummyChange;
end;

procedure TForm1.dummyChange(Sender: TObject);
begin
  (Form1.FindComponent(dummy.Lines[0]) as TButton).Free;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

procedure TForm1.bildklick(Sender: TObject);
var clickID : integer;
    x : string;
begin
zweitwahl := swapbool(zweitwahl);

 x := TImage(sender).parent.Parent.name;
delete(x,1,1);
clickid := strtoint(x);
karte[clickid].showcard;
if zweitwahl = false then tempid := clickid;

if zweitwahl = true then begin

if karte[clickid].BildID = karte[tempid].BildID then
  begin
    showmessage('PAAR GEFUNDEN');
    karte[tempid].Free;
    karte[clickid].Free;
    exit;
  end
    else
      showmessage('KEIN TREFFER');
karte[clickid].hidecard;
karte[tempid].hidecard;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.neumnuClick(Sender: TObject);
var
x,y,z, paare, reihe : integer;
begin
paare := creategame;
reihe := round(sqrt(paare));
x := 10;
y := 10;
for z := 1 to paare do begin
application.ProcessMessages;
karte[z] := TKarte.create(self,x,y,bilderliste.getpfad(z),bilderliste.getid(z),z);
karte[z].Parent := self;
karte[z].bildx.OnClick := bildklick;
inc(x,100);
if x> reihe*100 then begin
x := 10;
inc(y,100);
end;
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

type
  Tkarte = class(TWincontrol)

  private
  kartex : TPanel;
  blind : TBitmap;
  karte : TBitmap;
    { Private declarations }
  public
    bildx : TImage;
    BildID : integer;
    procedure showcard;
    procedure hidecard;
    constructor create(Owner:Tcomponent;xalign,yalign:integer;bildname:string;
                       inhalt,kartenID:integer);reintroduce;
    destructor destroy;reintroduce;

    { Public declarations }
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

constructor Tkarte.create(Owner: Tcomponent;xalign,yalign:integer;bildname:string;
                          inhalt,kartenID:integer);

var
jbild : TJpegImage;
begin
  inherited create(owner);

  width := 100;
  height := 100;
  left := xalign;
  top := yalign;

  Name := 'k'+inttostr(kartenID);

blind := TBitmap.Create;
blind.LoadFromFile('C:\blind.bmp');

try
karte := TBitmap.Create;
karte.LoadFromFile(bildname);
except
jbild := TJpegImage.Create;
jbild.LoadFromFile(bildname);
karte.Assign(jbild);
jbild.Free;
end;


kartex := TPanel.Create(self);
with kartex do begin
  Parent := self;
  Width := 100;
  Height := 100;
  Left := 0;
  top := 0;
end;

bildx := TImage.Create(self);
with bildx do begin
  Parent := kartex;
  Width := kartex.width -10;
  Height := kartex.Height -10;
  Left := 5;
  top := 5;
  picture.Assign(blind);
  Stretch := true;
  bildID := inhalt;
end;
end;                    

1:
2:
3:
4:
5:
6:

procedure TControl.MouseUp(...);
begin
  MachWasMitMirSelbst;
  OnClick(Self);
  MachNochWasMitMirSelbst;
end;                    

1:
2:
3:
4:
5:

  TTest = class
   i: integer;
   procedure foo;
   procedure bar;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TTest.bar;
begin
 foo;
 i := 124123;
end;

procedure TTest.foo;
begin
 free;
end;                    

1:

  (Form1.FindComponent(dummy.Lines[0]) as TButton).Free;                    

1:

Application.OnExeption := stilljetzt;                    

1:
2:
3:
4:

procedure stilljetzt(Sender:TObject;E:Exception);
begin
//
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

TForm1 = class(TForm)
  ...
  private
    procedure CMRelease(var Message: TMessage); message CM_RELEASE;
  public
    procedure ReleaseObject(Obj: TObject);
  end;

procedure TForm1.CMRelease(var Message: TMessage); message CM_RELEASE;
begin
  if Message.LParam = 0 then
    inherited
  else
    TObject(Message.LParam).Free;
end;

procedure TForm1.ReleaseObject(Obj: TObject);
begin
  if Obj <> nil then
    PostMessage(Handle, WM_RELEASE, 0, Integer(Obj));
end;