unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;


type MeineSexyKlasse = class

  private

    meinSexyInteger : Integer;
    meinSexyString : String;

  public

    constructor create(mInteger : Integer; mString : String);

end;



implementation

{ MeineSexyKlasse }

constructor MeineSexyKlasse.create(mInteger: Integer; mString: String);
begin
  meinSexyInteger := mInteger;
  meinSexyString := mString;
end;

end.