Работа с ComPort

function TForm1.WritePort(var Buf: char; Size: Word): Integer;
var
  i: Cardinal;
begin
  Result:= 0;
  if not WriteFile(Comfile,Buf, Size, i, nil) then
   exit;
  Inc(Result, i);
  Application.ProcessMessages;
 end;

if not WriteFile(Comfile,Buf, Size, i, nil) then

function WriteFile(hFile: Integer; const Buffer; nNumberOfBytesToWrite: Cardinal;
  var lpNumberOfBytesWritten: Cardinal; lpOverlapped: Pointer): Integer;

if not WriteFile(Comfile,Buf, Size, i, nil) then
begin
     // Обработка ошибок. Если WriteFile вернула False, но при этом GetLastError = ERROR_IO_PENDING
         // Значит, это была не ошибка, и надо дождаться окончания записи
         LastError := GetLastError;
         if LastError = ERROR_IO_PENDING then
            while WaitForSingleObject(Overlap.hEvent, 1000) = WAIT_TIMEOUT do
               Application.ProcessMessages
         else
            // А вот если не ERROR_IO_PENDING - то была ошибка, рассказываем пользователю об этом
            Form1.Memo1.Lines.Add(Format('WriteFile. Ошибка: Error = %s',
               [SysErrorMessage(GetLastError)]))
 
  end;

//до этого
 
ComFile:=CreateFile(Pchar('COM2'), Generic_Read or Generic_Write, 0, nil, open_existing, file_flag_overlapped,0);
//сейчас
ComFile:=CreateFile(Pchar('COM2'), GENERIC_READ or GENERIC_WRITE,  FILE_SHARE_READ, nil, CREATE_ALWAYS, 0, 0);

function TForm1.WritePort(var Buf :  integer; Size: Word): Integer;