FreePascal.ru

верю и понимаю вашу мудрость,но мне на самом деле мало известно, что написано выше
я нашла пример в книге,и создала под свою форму..только вот мало что получилось((

могли бы заново и все полностью написать

В ЧЕМ ОШИБКА???


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

{ TForm1 }

TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var ...