Ошибка при сохранении текста перед выходом

[Shouldercannon]

используя такую процедуру

procedure TForm1.Exit1Click(Sender: TObject);
var S:TStringList;
begin
if sCBHistory.Checked then
if REChat.Text <> '' then
S:=TStringList.Create;
S.Add(REChat.Text);
S.SaveToFile(ExtractFilePath(ParamStr(0))+'history'+(FormatDateTime('dd/mm/yy_hh/nn/ss', Now)+'.txt'));
S.Free;

CBClose.Checked:=True;
if ClientSocket1.Active then
ClientSocket1.Close;
ClientSocket2.Socket.SendText(DateTimeToStr(Now)+'\'+LDateRel.Caption+'\'+SendVersion+'\exit\'+ENick.Text);
Application.Terminate;
end;

При выходе из программы получаю ошибку
Project Project1.exe raised exception class EAccessViolation with message 'Access violation at adress 0053196C in module 'Project1.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.

Так теперь не ругается

procedure TForm1.Exit1Click(Sender: TObject);
var S:TStringList;
begin
if sCBHistory.Checked then
if REChat.Text <> '' then begin
S:=TStringList.Create;
S.Add(REChat.Text);
S.SaveToFile(ExtractFilePath(ParamStr(0))+'history\'+(FormatDateTime('dd/mm/yy_hh/nn/ss', Now)+'.txt'));
S.Free;

CBClose.Checked:=True;
if ClientSocket1.Active then
ClientSocket1.Close;
ClientSocket2.Socket.SendText(DateTimeToStr(Now)+'\'+LDateRel.Caption+'\'+SendVersion+'\exit\'+ENick.Text);
Application.Terminate;
end;
end;

Если sCBHistory выделен, но REChat пуст прога не закрывается.
Если sCBHistory не выделен, но REChat пуст прога не закрывается.
Если sCBHistory не выделен и REChat не пуст прога закрывается.

Где я допустил косяк?

[mihali4]

Очень просто. Смотрим первый вариант:

if REChat.Text <> '' then
S:=TStringList.Create;
S.Add(REChat.Text);

То есть, S:=TStringList.Create иногда происходит, а иногда нет.
Но! В любом случае есть попытка S.Add(...
А что будет, если не было S:=TStringList.Create ?
Правильно - S не создана, а мы к ней обращаемся, то есть обращаемся к несуществующему объекту (Access violation. Read of address 00000000)...