Jak przekazać wskaźnik do nowego komponentu?

Wsk = ^pacjet;
pacjet = record
  imie: String;
  nazwisko: String;
  diagnoza: String;
  next: Wsk;
end;

 type
   Wsk = ^pacjent;
   pacjent = record
               imie: String;
               nazwisko: String;
               diagnoza: String;
               next: Wsk;
             end;

   TMojKomponent = class(TComponent)
     private
        FMKWsk: Wsk; //pole komponentu przechowujące wskaźnik podany jako parametr metody "Wyswietl"
     public
       procedure Wyswietl(w: Wsk); //metoda komponentu, która coś tam robi z danymi przekazanymi wskaźnikiem "w"
       property MKWsk: Wsk read FMKWsk write FMKWsk; //property zapewniające dostęp do pola FMKWsk komponentu (odczyt i modyfikacja)
     end;

Var
 W: Wsk;
 MojKomponent: TMojKomponent;

implementation

{$R *.dfm}

procedure TMojKomponent.Wyswietl(w: Wsk); //metoda komponentu, która coś tam robi z danymi przekazanymi wskaźnikiem "w"
begin
  FMKWsk := w; //zapamiętanie wskaźnika przez komponent
  ShowMessage('Imie wyświetlone w metodzie "Wyswietl" komponentu: '+w^.imie);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  New(W); //utworzenie nowej zmiennej dynamicznej
  MojKomponent := TMojKomponent.Create(Self); //utworzenie komponentu
  try
    W^.imie := 'Ferdek'; //przypisanie przykładowego imienia
    ShowMessage('Imie odczytane z W: ' + W^.imie);

    MojKomponent.wyswietl(W); //wykonanie metody komponentu z użyciem wskaźnika "W"
    ShowMessage('Imie odczytane z komponentu: '+MojKomponent.MKWsk^.imie); //tu komponent użyje swojego zapamiętanego wskaźnika (bo property MojKomponent.MKWsk (czyli też pole FMKWsk) wskazuje na "W")

    MojKomponent.MKWsk^.imie := 'Boczek'; //imie zmienione przez komponenent (przez użycie property MKWsk)
    ShowMessage('Imie po zmianie przez komponenent, odczytane z W: ' + W^.imie);
  finally
    Dispose(W); //zwolnienie zmiennej dynamicznej z pamięci
    MojKomponent.Free; //zwolnienie komponentu z pamięci
  end;
end;
 

 
unit IloscChorych;

interface

uses
  System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls;

 type
   Wsk = ^pacjet;

  pacjet = record
    Imie: string;
    Nazwisko: string;
    Data: string;
    Oddzial: string;
    Diagnoza: string;
    Next: Wsk;
  end;

type
  TIloscChorych = class(TLabel)
  private
  protected
  public
    procedure licz_chorych(root:Wsk);
  published
  end;

procedure Register;

var
temp : Wsk;
liczba_zdrowych, liczba_chorych : Integer;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TIloscChorych]);
end;


procedure TIloscChorych.licz_chorych(root:Wsk);
begin

  temp:=root;
  liczba_chorych:=0;
  liczba_zdrowych:=0;
  while temp<>Nil do
  begin

    if temp^.diagnoza='Chory' then
      begin
        liczba_chorych := liczba_chorych +1;
      end;

    if temp^.diagnoza='Zdrowy' then
      begin
        liczba_zdrowych := liczba_zdrowych +1;
      end

  end;
  Self.Caption := 'Chorych: ' + IntToStr(liczba_chorych) + #13#10 +'Zdrowych: ' + IntToStr(liczba_zdrowych);
end;
end.

 TIloscChorych.licz_chorych(Root);

unit Logs;

{==============================================================================}

{$mode objfpc}{$H+}

{==============================================================================}

interface

{==============================================================================}

uses
  Classes, SysUtils;

{==============================================================================}

// Typ określający priorytet logu.
//---------------------------
type
  TPriority = (pLowest, pLow, pNormal, pHigh, pHighest);

// Typ rekordowy określający co ma zawierać log.
//----------------------------------------------
type
  TLogData = packed record
    Time     : String[20];  // Czas w którym zapisano log.
    Msg      : String[100]; // Wiadomość logu.
    Priority : TPriority;   // Priorytet logu.
  end;

// Typ uzywany w klasie do budowania listy jednokierunkowej.
//----------------------------------------------------------
type
  PLogRec = ^TLogRec; // Typ wskaźnikowy.
  TLogRec = record
    Next : PlogRec;   // Wskaźnik na nastepny rekord na liście.
    Log  : TLogData;  // Główne dane logu.
  end;

{------------------------------------------------------------------------------}

// Klasa logów pomaga zapisywać logi z różnych prac aplikacji.
//------------------------------------------------------------
type
  TLogClass = class(TObject)
  private
    First    : PLogRec;          // Wskaźnik na pierwszy rekord w liście
    Last     : PLogRec;          // Wskaźnik na ostatni rekord w liście
    FileName : string;           // Nazwa pliku do którego klasa zapisuje logi
    LogFile  : file of TLogData; // Plik do którego klasa zapisuje logi
    Count    : QWord;            // Ilość logów na liście.
    Max      : QWord;            // Maksymalna ilość logów na liście.
  public
    constructor Create(aBuff : QWord);
    destructor Destroy; override;

    procedure Add(aMsg : String; aPriority : TPriority);
    function GetFirst : PLogRec;
    procedure Clear;
    procedure SaveToFile;
  end;

{==============================================================================}

implementation

{==============================================================================}

// Konstruktor klasy. Nadaje wartości polom FileName (aktualna data i godzina),
// First, Last, Max, Count oraz przygotowuje plik logów do zapisu.
//------------------------------------------------------------------------------
constructor TLogClass.Create(aBuff : QWord);
begin
  inherited Create;
  FileName := StringReplace(DateTimeToStr(now), '-', '.', [rfReplaceAll]);
  FileName := StringReplace(FileName, ':', '-', [rfReplaceAll]);
  FileName := FileName + '.log';
  AssignFile(LogFile, FileName);
  Rewrite(LogFile);
  First := nil;
  Last := nil;
  Max := aBuff;
  Count := 0;
end;

{------------------------------------------------------------------------------}

// Destruktor klasy. Zapisuje listę do pliku, czyści ją a następnie zamyka plik.
//------------------------------------------------------------------------------
destructor TLogClass.Destroy;
begin
  if First <> nil then
  begin
    SaveToFile;
    Clear;
  end;
  CloseFile(LogFile);
  inherited Destroy;
end;

{------------------------------------------------------------------------------}

// Dodaje log "aMsg" o priorytecie "aPriority" do listy.
// Jesli lista się przepełni jest zapisywana do pliku, a nastepnie czyszczona.
//----------------------------------------------------------------------------
procedure TLogClass.Add(aMsg : String; aPriority : TPriority);
var
  NewLog : PLogRec;
begin
// Tworzenie nowego rekordu do listy
  New(NewLog);
  NewLog^.Log.Msg := aMsg;
  NewLog^.Log.Priority := aPriority;
  NewLog^.Log.Time := DateTimeToStr(Now);
  NewLog^.Next := nil;
// Zwiększenie o 1 zmiennej przechowującej ilość logów na liście
  Inc(Count);
// Dodanie logu na koniec listy.
  if First = nil then
  begin
    First := NewLog;
    Last := First;
  end
  else
  begin
    Last^.Next := NewLog;
    Last := NewLog;
  end;
// Sprawdzanie czy lista nie jest pełna.
// Jeśli tak to zapisz listę do pliku, wyczyść i ustaw ilość na 0.
  if Count = Max then;
  begin
    SaveToFile;
    Clear;
    Count := 0;
  end;
end;

{------------------------------------------------------------------------------}

// Zwraca wskaźnik na pierwszy element listy.
//-------------------------------------------
function TLogClass.GetFirst : PLogRec;
begin
  result := First;
end;

{------------------------------------------------------------------------------}

// Czyści listę
//-------------
procedure TLogClass.Clear;
var
  ToDelete : PLogRec;
begin
  while First <> nil do
  begin
    ToDelete := First;
    First := First^.Next;
    Dispose(ToDelete);
  end;
  inherited Destroy;
end;

{------------------------------------------------------------------------------}

// Zapisuje listę do pliku
//------------------------
procedure TLogClass.SaveToFile;
var
  ToSave : PLogRec;
begin
  ToSave := GetFirst;
  while ToSave <> nil do
  begin
    Write(LogFile, ToSave^.Log);
    ToSave := ToSave^.Next
  end;
end;

{==============================================================================}

end.

FileName := StringReplace(DateTimeToStr(now), '-', '.', [rfReplaceAll]);
FileName := StringReplace(FileName, ':', '-', [rfReplaceAll]);

 TIloscChorych.licz_chorych(Root);

TIloscChorych.licz_chorych(Root); 

Var
 IloscChorych1: TIloscChorych; //to ci się samo dopisało w definicji klasy formatki głównej

 IloscChorych1.licz_chorych(Root);

Var
 IloscChorych: TIloscChorych;

IloscChorych:=TIloscChorych.Create;
try
  IloscChorych.licz_chorych(Root);
  (...)
finally
  IloscChorych.Free;
end;

TIloscChorych.licz_chorych(Root);

type
  TIloscChorych = class(TLabel)
  public
    class procedure licz_chorych(root:Wsk); static;
  end;

TIloscChorych.licz_chorych(Root); //nie spowoduje stworzenia wyjątku EAccessViolation