я в непонятках

[Shaggrath]

begin
edit7.Text:='save/'+ComboBox1.Text+'/25698.sgh';
b:=Edit7.Text;
if not MoveFile(b,'data/source/25698.sgh')
then ShowMessage('Произошла ошибка при перемещении');
end

как это заставить работать

[uberchel]

Держи:

var
 path: string;
begin
 path:= ExtractFileDir(paramStr(0));
 Edit7.text:= '\save\'+ComboBox1.Text+'\25698.sgh';
 if not MoveFile(PChar(path + Edt1.text), PChar(path + 'data\source\25698.sgh'))
 then ShowMessage('Произошла ошибка при перемещении');
end;

[Shaggrath]

огромное спасибо, а то у меня уже голова розболелась