D2010. Предупреждения W1057 и W1058 нужно исправить

[Человек_Борща]

всем привет!

Проблема:
только начал знакомится с D2010 , и он накидал мне предупреждений:

[DCC Warning] Unit2.pas(46): W1058 Implicit string cast with potential data loss from 'Char' to 'AnsiString'
[DCC Warning] Unit2.pas(47): W1057 Implicit string cast from 'AnsiString' to 'string'
[DCC Warning] Unit2.pas(48): W1057 Implicit string cast from 'AnsiString' to 'string'

в данном коде:

function ProcessAndcmdLineIsRunning(aExeFile, aCmdLine: AnsiString): Boolean;
var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
  AlredyProc: AnsiString;
  Comp: Integer;
begin
  Result := False;
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  While ContinueLoop Do
  Begin
    If ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile))
          = AnsiUpperCase(aExeFile)) Or
        (AnsiUpperCase(AnsiString(FProcessEntry32.SzExeFile)) = AnsiUpperCase(aExeFile)))
      Then

      AlredyProc := Process(FProcessEntry32.SzExeFile).CommandLine; //w1058
    Comp := AnsiCompareStr(AnsiLowerCase(Trim(aCmdLine)),           //w1057
      AnsiLowerCase(Trim(AlredyProc)));                             //w1057
    if not(Comp = 0) then
      Result := True
    else
      Result := False;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  End;
  CloseHandle(FSnapshotHandle);
end;

помогите исправить...

[Пепел Феникса]

function ProcessAndcmdLineIsRunning(aExeFile, aCmdLine: String): Boolean;
var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
  AlredyProc: String;
  Comp: Integer;
begin
  Result := False;
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  While ContinueLoop Do
  Begin
    If ((UpperCase(ExtractFileName(FProcessEntry32.SzExeFile))
          = UpperCase(aExeFile)) Or
        (UpperCase(String(FProcessEntry32.SzExeFile)) = UpperCase(aExeFile)))
      Then

      AlredyProc := Process(FProcessEntry32.SzExeFile).CommandLine; //w1058
    Comp := CompareStr(LowerCase(Trim(aCmdLine)),           //w1057
      LowerCase(Trim(AlredyProc)));                             //w1057
    if not(Comp = 0) then
      Result := True
    else
      Result := False;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  End;
  CloseHandle(FSnapshotHandle);
end;

если не ошибаюсь то так.
не Ansi функции должны корректно работать, ибо сейчас юникод и не нужно уточнять локали.