проблема с LASARUS

[Alexandr17]

Проблема с LASARUS у меня возникла
Вот код

unit AE_Main;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  Buttons, Menus, ComCtrls, PopupNotifier, StdCtrls, ActnList, ValEdit,
  ae_NewSize, iniFiles;

type

  { TForm1 }

  TForm1 = class(TForm)
    Memo1: TMemo;
    MenuItem6: TMenuItem;
    New_Size_Maps: TAction;
    Add_Tiles: TAction;
    Load_Maps: TAction;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    Save_Maps: TAction;
    ActionList1: TActionList;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    PageControl1: TPageControl;
    RadioGroup1: TRadioGroup;
    ScrollBox1: TScrollBox;
    ScrollBox2: TScrollBox;
    SelectDirectoryDialog1: TSelectDirectoryDialog;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    procedure Add_TilesExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure New_Size_MapsExecute(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  TilesImage:TImage;
  BoolPeremewenieImage:Boolean;
  PathArrayKartinka:Array of String;
  Path:String;
  MaxTypes:Integer;
  MaxTypesOR:Array of Integer;
  TypeTiles, TypeTileOR:Integer;
  ini:TIniFile;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  SR: TSearchRec;
  Vint:Integer;
  i:Integer;
begin
  Path:=ExtractFilePath(ParamStr(0));
  BoolPeremewenieImage:=False;
  Vint:=0;
  Memo1.Lines.Add('[Загрузка путей тайлов]');
  if FindFirst(Path + 'Sprites\*.png', faAnyFile, SR) = 0 then
  begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         Vint:=Vint+1;
         SetLength(PathArrayKartinka, Vint);
         PathArrayKartinka[Vint-1]:=Path+'Sprites\'+SR.Name;
         Memo1.Lines.Add('Имя переменной Тайла '+IntToStr(Vint)+' = '+PathArrayKartinka[Vint-1]);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
   ini:=TIniFile.Create(Path+'Sprites\Param.ini');
   MaxTypes:=ini.ReadInteger('Param0','MaxTypes',0);
   SetLength(MaxTypesOR, MaxTypes);
   For i:= 0 to MaxTypes-1 do begin
     MaxTypesOR[i]:=ini.ReadInteger('Param0_'+IntToStr(i),'MaxTypesOR',0);
   end;
   ini.free;

end;

procedure TForm1.Add_TilesExecute(Sender: TObject);
begin
  TilesImage:=TImage.Create(ScrollBox2);
  TilesImage.Parent:=ScrollBox2;
  BoolPeremewenieImage:=True;
end;

procedure TForm1.New_Size_MapsExecute(Sender: TObject);
var
  NewSiseMapsModal : TModalResult;
begin
  NewSiseMapsModal :=Form2.ShowModal;
  If NewSiseMapsModal = mrok then begin
    ScrollBox2.Width:=aeSizeWidth;
    ScrollBox2.Height:=aeSizeHeight;
  end;
end;

end.

А вот что я получаю

[Загрузка путей тайлов]
Имя переменной Тайла 1 = D:\?????? ??\Sprites\0_0_0.png
Имя переменной Тайла 2 = D:\?????? ??\Sprites\0_1_0.png
Имя переменной Тайла 3 = D:\?????? ??\Sprites\0_1_1.png
Имя переменной Тайла 4 = D:\?????? ??\Sprites\0_1_2.png
Имя переменной Тайла 5 = D:\?????? ??\Sprites\0_1_3.png
Имя переменной Тайла 6 = D:\?????? ??\Sprites\0_2_0.png
Имя переменной Тайла 7 = D:\?????? ??\Sprites\0_2_1.png
Имя переменной Тайла 8 = D:\?????? ??\Sprites\0_2_2.png
Имя переменной Тайла 9 = D:\?????? ??\Sprites\0_2_3.png
Имя переменной Тайла 10 = D:\?????? ??\Sprites\0_3_0.png
Имя переменной Тайла 11 = D:\?????? ??\Sprites\0_3_1.png
Имя переменной Тайла 12 = D:\?????? ??\Sprites\0_3_2.png
Имя переменной Тайла 13 = D:\?????? ??\Sprites\0_3_3.png

[FaTaL]

Значит в пути содержится кирилица, которую не понимает компонент Лазаруса.

[Alexandr17]

Делфи 7 же ее понимает как исправить

[Stilet]

Компоненты лазаруса Юникодные. Так что используй функции AnsiToUtf8() Utf8toAnsi() возможно Utf8ToConsole()

[Alexandr17]

Непонял какую именно

[Alexandr17]

Все 3 попробывал не испровляет ошибки

[Serge_Bliznykov]

так, в порядке предположения:
попробуйте переменную Path описать как AnsiString:
вместо

Path:String;

Path:AnsiString;

[Alexandr17]

Я уже исправил проблему

[Serge_Bliznykov]

Сообщение от Alexandr17

Я уже исправил проблему

и в чём же она была?