function LoadImageFromFile(const ASourceNameFile: PChar): THandle; stdcall;
var
  LStream: TMemoryStream;
  LFileStream: TFileStream;
  LNameExtension, Extension: String;
  buf: array [1..3] of Char;
  LSourseSize, LPostSize: integer;
  header : string[4];
begin
  LNameExtension := 'bmp';
  //LStream := TMemoryStream.Create;
  LFileStream := TFileStream.Create(string(ASourceNameFile), fmOpenReadWrite);
  LSourseSize := LFileStream.Size;
  LFileStream.Seek(0, soFromEnd);
  LFileStream.Write(LNameExtension[1], Length(LNameExtension) * SizeOf(Char));
  LFileStream.Free;

  LFileStream := TFileStream.Create(string(ASourceNameFile), fmOpenRead);
  LPostSize := LFileStream.Size;
  LFileStream.Seek(6, soFromBeginning);
  LFileStream.Read(buf , SizeOf(buf));

  //Result := THandle(LStream);

end;