Асинхронная запись Delphi в TListBox

Ни один из ваших вариантов не годится. Вам нужно использовать вариант 3!

Дело в том, что весь доступ к элементам управления пользовательского интерфейса должен выполняться в основном потоке. Используйте TThread.Synchronize или TThread.Queue для маршалинга кода пользовательского интерфейса в основной поток пользовательского интерфейса. Как только вы это сделаете, код не будет нуждаться в дальнейшей сериализации, потому что сам процесс его запуска в потоке пользовательского интерфейса сериализует его.

Код может выглядеть так:

procedure TMainForm.Log(const Msg: string; const Color: TColor);
var
  Proc: TThreadProcedure;
begin
  Proc :=
    procedure
    begin
      ListBox1.AddItem(Msg, Pointer(Color));
      ListBox1.ItemIndex := ListBox1.Count-1;
    end;

  if GetCurrentThreadId = MainThreadID then
    Proc()
  else
    TThread.Queue(nil, Proc);
end;

В своем обновлении вы указываете, что вам нужно записать в список из другого процесса. Этого нельзя достичь ни с одним кодом в вопросе. Для этого вам нужна межпроцессная связь (IPC). Отправка сообщений Windows была бы разумным подходом, но есть и другие доступные варианты IPC. Но я думаю, что вы неправильно говорите, когда используете термин процесс. Я подозреваю, что вы не имеете в виду процесс, но что вы имеете в виду, я понятия не имею.