Загрузка текстового файла из ресурсов

[SolovejK]

Процедура для Memo все работает.
Помогите переделать под ListBox

procedure TForm1.TextResource;
var
  Resource: THandle;
begin
  Resource := LoadResource(hInstance,
              FindResource(hInstance, 'MyText', 'TEXT'));
  Memo1.Lines.Text := PChar(LockResource(Resource));
  UnLockResource(Resource);
  FreeResource(Resource);
end;

[bitSoft]

procedure TForm1.TextResource;
var
  Resource: THandle;
begin
  Resource := LoadResource(hInstance,
              FindResource(hInstance, 'MyText', 'TEXT'));
  ListBox.Items.Text := PChar(LockResource(Resource));
  UnLockResource(Resource);
  FreeResource(Resource);
end;