FreePascal.ru

Спасибо за совет sts получилось.

Не работает следующий код:

TForm1 = class(TForm)
btnStart: TButton;
cbPrinters: TComboBox;
procedure btnStartClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

var
Form1: TForm1 ...