TPiece = class(TPath)
public
    positionxy: tpoint;
    sens: integer;
    placerok: boolean;
  end;

 
     NewPiece := TPiece.Create(self);
         NewPiece.parent:=form1.Layout1;
         newpiece.Name:='P'+inttostr(lenum);
         newpiece.Tag:=lenum;
         NewPiece.Data.Data :=forme[lenum] ;

 
unit Unit1;
 
interface
 
uses
 
  System.SysUtils, System.UIConsts, System.Types, System.UITypes,
  System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Memo.Types, FMX.ScrollBox,
  FMX.Memo,
  FMX.Edit, FMX.EditBox, FMX.NumberBox, System.Math, System.Math.Vectors,
  FMX.Layouts, System.Actions, FMX.ActnList, FMX.Media, mmsystem, FMX.ComboEdit,
  FMX.Colors,FMX.Surfaces;
 
 
 
 
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Memo1: TMemo;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Single);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
 
    procedure ImageLoadFromFile(filename: string; MyImage: TImage);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
procedure TForm1.ImageLoadFromFile(filename: string; MyImage: TImage);
var
  bmp: fmx.graphics.tbitmap;
  astream: tmemorystream;
  surface: tbitmapsurface;
begin
  bmp := FMX.Graphics.TBitmap.Create;
  bmp.LoadFromFile(filename);
  astream:=tmemorystream.Create;
  surface:=tbitmapsurface.Create;
  surface.Assign(bmp);
  try
    tbitmapcodecmanager.SaveToStream(astream,surface,'bmp');
    astream.Seek(0,tseekorigin.soBeginning);
    MyImage.bitmap.LoadFromStream(astream);
  finally
    astream.free;
    bmp.free;
    surface.free
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
filen:string;
begin
 
filen:='carte.jpg';
Form1.ImageLoadFromFile(filen,form1.Image1);
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
 
var
  vBitMapData : TBitmapData;
  PixelColor : TAlphaColor;
  xx,yy:integer;
 
begin
xx:=round(x);
yy:=round(y);
 
image1.Bitmap.Map(TMapAccess.Read, vBitMapData) ;
 PixelColor := vBitMapData.GetPixel(xx,yy);
 image1.Bitmap.Unmap(vBitMapData);
 Memo1.Lines.Add('======================');
 memo1.Lines.Add(' Colour=' + IntToStr(pixelcolor)
                  + ' Red='    + IntToStr (TAlphaColorRec(PixelColor).R) // red
                  + ' Green='  + IntToStr (TAlphaColorRec(PixelColor).G) // blue
                  + ' Blue='   + IntToStr (TAlphaColorRec(PixelColor).B) // green
                  )  ;
end;
end.

Fdtransaction1.StartTransaction;
// Requete SQL
FdQuery.Sql.Text := 'Insert into Tclient (c1,c2c,c3) values ("N1","CLIENT 1 ","ADR1")';
Try
 FdQuery.ExecSql;
 FdTransaction1.Commit;
Except on E:Exception do
   Begin
    Showmessage('Erreur Mise à jour '+E.Message); 
End;
End;

 
//Function IsFileLocked(const FileName: string): Boolean;
Function IsFileLocked(FileName: string): Boolean;
var
  FS: TFileStream;
 
begin
  try
    // fmOpenReadWrite pour lecture/écriture, fmShareExclusive pour blocage total
    FS := TFileStream.Create(FileName, fmOpenReadWrite or fmShareExclusive);
    FreeAndNil(FS);
    Result := False;
  except
    on E: EFOpenError do
      Result := True;  // le fichier est déjà ouvert/exclu
    else
      raise;  // autres erreurs (fichier inexistant, droits, etc.)
  end;
end;

 
var
nbr_numero: array[1..50] of integer