So this is the code i just write about *.exe file manipulation:
Code:
program TextureLoad;


uses crt,SDL2,SDL2_image,SysUtils;


type R=array[1..100] of pSDL_Renderer;
	 T=array[1..100] of pSDL_Texture;


var window:pSDL_Window; Render:R; Texture:T; i:byte;


procedure Graphic_Initialisation;
begin
	clrscr;
	if SDL_INIT(SDL_INIT_VIDEO)<0 then
		begin
			writeln('The graphic mode could not be initializated');
			writeln('The application will now exit');
			exit;
		end
	else
		window:=SDL_CreateWindow('Texture Window',50,50,600,480,SDL_WINDOW_SHOWN);
end;


Procedure Load_Texture(ExePath:AnsiString);
begin
	Texture[1]:=IMG_LOADTEXTURE(Render[1],ExePath+'data\space_armada1.bmp');
	Texture[2]:=IMG_LOADTEXTURE(Render[2],ExePath+'data\space_armada2.bmp');
	Texture[3]:=IMG_LOADTEXTURE(Rrender[3],ExePath+'data\space_armada3.bmp');
end;




Procedure ComposerFrame;
var Path:AnsiString;
begin
	Path:=ExtractPathFile('Texture.exe');
	Load_Texture(Path);	
end;
			
	
	
procedure Graphic_Destruction;
begin
	SDL_DestroyWindow(window);
	SDL_QUIT;
end;


Begin
	Graphic_Initialisation;
	SDL_Delay(2000);
	ComposerFrame;
	Graphic_Destruction;
end.
The error i recive is this: Incompatible type for arg no. 2: Got "AnsiString", expected "PChar"