Suma StrToInt para Edit vacios

[cocke]

Hola a todos..
Despues de leerlos atte, corregi todo lo aconsejado y aun no funcionaba..
Pueden creer que el error estaba dentro del if,habia olvidado la diferencia entre un = y un ==
Gracias por todo..
Estuve leyendo acerca de TPrinter, ya que necesito imprimir el formulario, y encontre lo siguiente
TPrinter Prntr = Printer();
TRect r = Rect(200,200,Prntr->PageWidth – 200,Prntr->PageHeight – 200);
Prntr->BeginDoc();
Prntr->Canvas->TextRect(r, 200, 200, Memo1->Lines->Text);
Prntr->EndDoc();
Pero creo que esta imprimiendo un cuadrado?
Se supone que para imprimir le formulario primero debo capturar el mapa de bits del formulario, y nose como hacerlo

Me podrian ayudar a imprimir el formulario??
Gracias nuevamente

Saludos!!