problema con las multiples sesiones de la unidad de Roman :(

[ivantj24]

jars gracias por la ayuda, y disculpa pero es que no soy la gran cosa en delphi, lo que queria saber, es como hiria declarado o el orden el que debe llevar por ejemplo, el orden de un archivo vendria siendo:

unit UPrincipal;

interface

uses
....

type
.....


private
//Aqui todos los metodos privados
public
//Aqui todos los metodos publicos

//y aqui debajo de todo eso yo pongo tu codigo igualito como me dijiste

//Este public, supongo va en el apartado de public, debajo de private

public
constructor Create(AOwner: TComponent); override;
//==================================================================================================== ==================
constructor TfrmPrincipal.Create(AOwner: TComponent);
//==================================================================================================== ==================
type
PHWND = ^HWND;

var
createerror: DWORD;
FHMapObject: Integer;
begin
FHMapObject := CreateFileMapping(
$FFFFFFFF, // use paging file
nil, // no security attributes
PAGE_READWRITE, // read/write access
0, // size: high 32-bits
1, // size: low 32-bits
PChar('Nombre_de_tu_programa')); // name of map object
createerror := GetLastError;
if FHMapObject = 0 then
begin
MessageDlg(Format('CreateFileMapping=$%x', [createerror]),
mtError, [mbOK], 0);
Exit;
end;

if GetLastError = ERROR_ALREADY_EXISTS then
begin
CloseHandle(FHMapObject);
MessageDlg('Ya hay una instancia ejecutandose', mtError, [mbOK], 0);
Application.Terminate;
Halt;
end;
Inherited;
end;

y mas abajo sigue

var
frmPrincipal: TfrmPrincipal;

implementation

uses //todas las unidades

{$R *.dfm}

procedure TfrmPrincipal.Cerrar1Click(Sender: TObject);
begin
Close;
end;

//y todo los procedimientos ya desarrollados etc

seguro que yo lo estoy haciendo mal, solo espero me puedas orientar por que aun me falta mucho por aprender, o no se si hay que desarrollar algo mas al codigo, saludos y sorry por la pregunta algo tonta :S, gracias

me salen 4 errores,
1.- [DCC Error] UPrincipal.pas(64): E2004 Identifier redeclared: 'TfrmPrincipal.Create'
2.- [DCC Error] UPrincipal.pas(70): E2050 Statements not allowed in interface part (me seniala el begin, despues del constructor)
3.- [DCC Error] UPrincipal.pas(93): E2075 This form of method call only allowed in methods of derived types (me seniala el Inherited)
4.- [DCC Error] UPrincipal.pas(93): E2075 This form of method call only allowed in methods of derived types (y este es normal por que hay un error y no se puede compilar, espero me puedas echar la mano )