Laufzeitfehler mit eigenem Typ

[64Jabor]

Hmm also ich denke ich poste den "gesamten" Code nochmal, eventuell ist im Zusammenhang alles etwas klarer...

Delphi-Quellcode:

constructor TLCComputer.Create(NName, NIP: string; Column, Row: integer; NOwner: TWinControl);
begin
 inherited Create(NOwner);
 Parent := NOwner;

 Width := cComputerWidth;
 Height := cComputerHeight;

 Name := TLabel.Create(self);
 Name.Parent := self;
 Name.Caption := NName;
 Name.Left := Column * (cComputerWidth + cComputerSpaceV);
 Name.Top  := Row    * (cComputerHeight + cComputerSpaceH);

 IP   := TLabel.Create(self);
 IP.Parent := self;
 IP.Caption := NIP;
 IP.Left   := Column * (cComputerWidth + cComputerSpaceV);
 IP.Top  := Row    * (cComputerHeight + cComputerSpaceH) + 10;
end;

Und die Erstellung der Klasseninstanz:

Delphi-Quellcode:

procedure TFrmLC.BtnAddComputerClick(Sender: TObject);
var
 Name, IP: string;
 Column, Row: integer;
begin
 Name := InputBox('Computername', 'Bitte geben Sie einen Computernamen an:', '');
 IP   := InputBox('IP-Adresse', 'Bitte geben Sie die IP-Adresse des Computers an:', '');

 SetLength(Computers, Length(Computers) + 1);
 Computers[Length(Computers)-1] := TLCComputer.Create(Name, IP, Column, Row, self);
end;

Keine Laufzeitfehler, keine Compilerfehler, läuft einwandfrei nur passieren tut nix ^^

//edit: mir ist bewusst dass durch fehlende Angabe von Column und Row die Left und Top-Werte der label 0 werden, aber das ist ja nicht schlimm