Ähm, von wo nach wo willst Du eigentlich kopieren? Du hast ein wenig viele .Edit eingebaut, ein unnützes with-Statement, kein Post der kopierten Daten und die Zuweisungen verdreht.
Ich gehe jetzt mal davon aus, dass Du dataDaten.Kategorien nach dataServer.Katgegorien kopieren willst:
Delphi-Quellcode:
dataDaten.Kategorien.First;
while not dataDaten.Kategorien.eof do begin
dataServer.Kategorien.Append;
dataServer.Kategorien.FieldByName('kategorie').asString := dataDaten.Kategorien.FieldbyName('kategorie').asString;
dataServer.Kategorien.FieldByName('kurzbeschreibung').AsString := dataDaten.Kategorien.FieldbyName('kurzbeschreibung').AsString;
dataServer.Katgeorien.Post;
dataDaten.Kategorien.next;
end;