Romanson

<?php
 header('Content-Type: text/html; charset=utf-8');
	$edit1 = $_POST['edit1'];
$edit2 = $_POST['edit2'];
$edit3 = $_POST['edit3'];
$edit4 = $_POST['edit4'];

$fp=fopen("base.txt","a");  
fwrite($fp, "\r\n" . "(" . $edit1 . ") [" . $edit2. "] {" . $edit3. "} :" . $edit4);  
fclose($fp);
?>

if length(s)  <1 then s:='' else
  begin

    rs := TResourceStream.Create(HInstance, s, RT_RCDATA);
  try
  image1.Visible:=true;
    Image1.Bitmap.LoadFromStream(rs);
     application.processmessages;
  finally
    FreeAndNil(rs);

  end;
  Image1.Repaint;
 end;