И снова вопрос к всезнающему All  С чем связано то, что моё приложение в начале работы ест, к примеру, 3 метра памяти, а после того как я открыл и закрыл пару диалогов (Color и Picture) оно у меня начинает есть в 2 раза больше?
Вот пример вызова диалога:
| Код |
procedure TClock.MColorClick(Sender: TObject);
var
Fcol:Longint;
begin
ColorDialog1.Execute;
Label1.Font.Color:=ColorDialog1.Color;
Fcol:=Label1.Font.Color;
Registr:=TRegistry.Create;
Registr.RootKey:=HKEY_LOCAL_MACHINE;
Registr.OpenKey('SOFTWARE\Kiber_rat software\AClock', True);
Registr.WriteInteger('Fcolor', Fcol);
Registr.CloseKey;
Registr.Free;
ColorDialog1.Free;
end;
|
Собственно метод Free я попытался вставить в расчёте на то, что память освободится, но увы... Помогите плз, потому как простая прога отжирающая 6 метров это не есть хорошо |