Write a program to show the memory leak? - Delphi

Write a program to show the memory leak?

- The program shows the procedure to create one or more objects involved in the operations like:

procedure PrintFile(const fileName : string);
var
myFile : TextFile;
fileData : TStringList;
i : Integer;

begin
// This creates the TString list to allocate the object memory
fileData := TStringList.Create;

// This Loads the file contents into the string list and dynamically expand the size //of the object.
fileData.LoadFromFile(fileName);

- This process is being called for the TStringList object that is being created and filled with the contents consists in the file.
- The statement needs to be added to free up the memory and release it when the object terminates.

FreeAndNil(fileData);

- The statement provides a way to call the process as many times as it is required without the memory leak.