редактирование файла на фтп

[mitiay]

В общем нашел пример но он на C++ как такое можно реализовать в Delphi?

Скрипт на сайте
PHP код:
<?php 
if ($_POST['data']) {$data = $_POST['data'];} else {$data='';} 
$f = fopen ('file.txt','w+'); 
fwrite($f,$data); 
fclose($f); 
?>

и в программе на кнопке

PHP код:

$http = c("httpClient1");  
$http->url = "http://example.com/mail_script.php";  // путь к скрипту у тебя на сервере  
$http->setDate("text",c("memo1")->text);  // компонент memo1  
$html = $http->submit();   // получаем html код ответа,в нашем случае true или false  
if (strstr("true",$html)) {  
  c("statusBar1")->simpleText = "Сообщение отправлено";  
}elseif(strstr("false",$html)){  
   c("statusBar1")->simpleText = "Сообщение не  отправлено";  
}

[mitiay]

Нашел еще

<?  
 $recieve = $_POST['recieve'];  
 $file = fopen("file.txt", "a+"); // сохраняем в файл file.txt всё что передала наша программа на Delphi  
 fwrite($file, $recievern); //здесь кавычек не нужно 
 fclose($file);  
 ?>

var idhttp:tidhttp; list:tstringlist; what:string;
begin
IdHTTP := TIdHTTP.Create(nil);
what:='текст'; //это то что должен получить скрипт
list:=tstringlist.create;
list.add('recieve='+what);
IdHTTP.POST('http://сайт.ru/file.php', list); // слово "текст" и будет передаваться нашему PHP скрипту
list.free;
IdHTTP.Free;
end;

Но не хочет работать,права на сервере выставил 777