Closed. This question does not meet Stack Overflow guidelines . It is not currently accepting answers.

This question does not appear to be about programming within the scope defined in the help center .
Closed 13 mins ago.
Improve this question

procedure WriteLog(AMessage:PAnsiChar);
 const
 MAX_MESSAGE_SIZE = 250;
 var
 Length: ULONG;
 buf: array[0..MAX_MESSAGE_SIZE+2] of System.Char;
 //  time: LARGE_INTEGER;
  i:integer;
 begin
  if FileHandle<>0 then
  begin
  i:=0;
   while (AMessage[i]<>#0)and(i<MAX_MESSAGE_SIZE) do
  begin
   buf[i]:=AMessage[i]; '//E2010 Incompatible types: 'Char' and 'AnsiChar' '
   inc(i);
 end;
 Length:=i;
 buf[Length]:=#13;
 buf[Length+1]:=#10;
 buf[Length+2]:=#0;
  if not NT_SUCCESS(ZwWriteFile(FileHandle,
    0,
    nil,
    nil,
    @IoStatus,
    @buf,
    Length+2, 
    nil,
    nil)) then DbgPrint('ZwWriteFile failed...');
 DbgPrint(AMessage);
  end else DbgPrint('Cannot write to file. FileHandle = 0.');
  end;

Воспользовался стандартным импортом не чего не помогло, решение так и не смог найти, подталкивание пожалуйста куда мне двигаться.. Решение из Delphi 2010 Error E2010 Incompatible types: 'AnsiChar' and 'Char' не помогло. не знаю, что делать. Это исходник Delphi 3 прошу не пинать меня сильно, в Delphi не силен, только осваиваю в силу необходимости, в дальнейшем планирую написать драйвер для клавиатуры, исходники выложу есть некоторые вопросы но с начало нужно привести к согласованию типов