Osservate questo frammento di codice:

codice:
procedure TMainForm.Log(riga: String);
var
  FileLog: TextFile;
  nomefile: String;
begin
    try
      nomefile:= 'Log.txt';
      AssignFile(FileLog, nomefile);
      if FileExists(nomefile) then begin
        Append(FileLog);
      end else begin
        ReWrite(FileLog);
      end;
      WriteLn(FileLog, riga);
      CloseFile(FileLog);
      Except on e: Exception do begin
      end;
    end;
  end;
end;
in compilazione ottengo il messaggio

codice:
TFFrontEnd32.pas(646,7) Hint: Local variable "FileLog" does not seem to be initialized
Avete idea per quale motivo?

Grazie mille, Denis.