error при добавлении даты

[viks1]

Доброго всем времени суток.
Возникла такая проблема, при добавлении даты вылетает ошибка...
Скриншоты внизу...
Если нужно показать код, пишите!

[Аватар]

100% не правильный код Показывайте код, в котором добавление

[Кольша]

куда добавляете?если к имени лога то это из за того что в винде запрещены некоторые символы нужно так

formatdatetime('yyy_mmm_ddd');

вроде точно не помню

[viks1]

Сообщение от Аватар

100% не правильный код Показывайте код, в котором добавление

var
  Form7: TForm7;
  datanote:string;
  timenote:string;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

datanote:=MaskEdit1.text;
timenote:=MaskEdit2.text;
Form4.Memo2.Lines.Add(datanote);
Form4.Memo2.Lines.Add(timenote);
form7.Free;

end;

кнопка ОК

[Кольша]

возможно форма не создана, или не освободили что перед free

[Аватар]

form7.Free; это что? Как form7 вызывается? Если form7 модально, то, например, ModalResult:=mrOk и Free после ShowModal. Если не модально, то Close и в OnClose caFree

[viks1]

Сообщение от Кольша

возможно форма не создана, или не освободили что перед free

Форма создана, мемо созданно, поставил напоминание на пустую заметку... не работает(

[viks1]

Сообщение от Аватар

form7.Free; это что? Как form7 вызывается? Если form7 модально, то, например, ModalResult:=mrOk и Free после ShowModal. Если не модально, то Close и в OnClose caFree

procedure TForm4.Button4Click(Sender: TObject);
begin
Application.CreateForm(TForm7, Form7);
Form7.show;
end;

вот так я вызываю форм 7

[Аватар]

Значит Close вместо form7.Free и в form7.OnClose caFree присвоить

[viks1]

Сообщение от Аватар

Значит Close вместо form7.Free и в form7.OnClose caFree присвоить

Спасибо работает...
Но возникла немного другая проблемма...
Мое напоминание помещено в Timer

 procedure TForm4.Timer1Timer(Sender: TObject);
 var
 j:integer;
begin
 timer:=TimeToStr(Time);
 label6.Caption:=timer;

 data:=DateTimeToStr(MonthCalendar1.Date);
label5.Caption:=data;

for j:=1 to Memo2.Lines.count do begin
if (Memo2.Lines.Strings[j]=data) then
notedata:=Memo2.Lines.Strings[j];
if (Memo2.Lines.Strings[j]=timer) then
notetimer:=Memo2.Lines.Strings[j];
end;
if (notedata=data) and (notetimer=timer) then
ShowMessage('Имя заметки:  '+Edit1.Text+'   Содержание заметки:  '+memo2.Text);



end;

Вся проблема в том, что пока я не нажму на календарь, моя заметка во время не сработает..
Как сделать, что бы календарь мог работать в Online режиме?