fejl i drag- drop

hvad er der galt her ??
når jeg compiler programmet får jeg denne fejl :

[Error] Opret.pas(232): Incompatible types: \'TStrings\' and \'String\'

procedure TFrmOpret.ListBox2DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
ListBox2.DragMode := DmAutomatic;
// FEJL
ListBox2.Items :=(source as tlistbox).items.Strings[listbox1.itemindex];
ListBox2.DragMode := DmManual;
end;

procedure TFrmOpret.ListBox2DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
accept := True;
end;