Need some (> quite a lot actually;) help debugging my app

Hi Expertz!!

I'm currently (still) working on my project and although I accomplished about all I wanted to, I would like someone to help me out on debugging the application. I'm pretty convinced that I have not only overlooked certain issues but also used procedures etc. that I could better do without so to speak. A CPU window popping up doesn't tell me one thing at all and a debugger like MemSleuth probably is too sophisticated or option B > I'm too....;)
What I'd like is someone who is willing to take a look and if applicable will comment what goes wrong and where what goes wrong and ofcourse HOW to alter my app without destroying it (that's what I have been doing lately in my attempts to improve the code;)

In contradiction to what I stated earlier I will now post some code fragment which clearly needs rectification or perhaps even a total makeover......he or she who helps me out on this one gets the points.......

This fragment should collect input from some edits and comboboxes which the user edited.....The Re5 is my RichEdit, the Se are SpinEdits and any CB's are comboboxes and other Re's (Re1 etc.) are other RichEdits from which the info should be collected....



//here it goes
with RE5 do
begin
maxLength := 32;
RE5.Clear;
RE5.PerForm(EM_SETMARGINS, EC_LEFTMARGIN or EC_RIGHTMARGIN, MAKELONG(20,20));//set margins

RE5.Lines.add('*******************************************************************************');
RE5.Lines.add('Wachtrapport van de');

if
suiRadiobutton1.checked then      //either radiobutton 1 or 2 will be checked
RE5.lines.add('Vroege Dienst') else //resulting in either option 1
RE5.lines.add('Late Dienst'); //or option 2
RE5.Lines.add('');
RE5.lines.add(DateTimeToStr(Now)); //add time/date string
RE5.Lines.add('*******************************************************************************');
RE5.Lines.Add('Aandachtspunten Planning + Badenreeks:');
RE5.Lines.add('*******************************************************************************');
RE5.SelStart := 0;
RE5.SelLength := 270;
RE5.SelAttributes.Protected := True;
RE5.lines.add(RE1.lines.text);
RE5.Lines.add('');
RE5.lines.add('Gevonden waarden bij analyseren:');
RE5.Lines.add('');
RE5.lines.add('Groffosfaatbad 1 Puntensterkte: '+se1.text+'  Ijzergehalte: '+se3.text);  //and so on
RE5.lines.add('Groffosfaatbad 2 Puntensterkte: '+se2.text+'  Ijzergehalte: '+se4.text);
RE5.lines.add('Ultra Tech       Puntensterkte: '+se5.text);
RE5.Lines.add('*******************************************************************************');
RE5.lines.add('Stand van zaken mbt waterzuivering:');
RE5.Lines.add('*******************************************************************************');
RE5.lines.add('Standreactor:'+cb1.Text);
RE5.lines.add('Indikker:    '+cb2.Text);
if CB5.Text='' then
RE5.lines.add('Grote pers: '+cb3.Text+' is niet in gebruik')
else
RE5.Lines.Add('Grote pers: '+cb3.Text+' staat op: '+CB5.Text);
if CB6.Text='' then
RE5.Lines.Add('Kleine pers: '+cb4.Text+' is niet in gebruik')
else
RE5.lines.add('Kleine pers: '+cb4.Text+' staat op: '+CB6.Text);
RE5.Lines.add('');
RE5.lines.add('Gevonden waarden bij analyseren:');
RE5.Lines.add('');
RE5.Lines.Add('Zink waarde afvalwater:'+se6.text);
RE5.Lines.Add('Tin waarde afvalwater: '+se7.text);
RE5.Lines.add('*******************************************************************************');
RE5.Lines.Add('Ook belangrijk!:');
RE5.Lines.add('*******************************************************************************');
if suicheckbox1.Checked then
RE5.lines.add('Stofzak vervangen:    ja') else
RE5.lines.add('Stofzak vervangen:    nee');
if suicheckbox2.Checked then
RE5.lines.add('Vuilnisbak geleegd:   ja') else
RE5.lines.add('Vuilnisbak geleegd:   nee');
if suicheckbox4.Checked then
RE5.lines.add('Afdekballen overgeschept:   ja') else
RE5.lines.add('Afdekballen overgeschept:   nee');
if suicheckbox5.Checked then
RE5.lines.add('Contactplaatjes gereinigd:   ja') else
RE5.lines.add('Contactplaatjes gereinigd:   nee');
if suicheckbox6.Checked then
RE5.lines.add('Asbakken geleegd:   ja') else
RE5.lines.add('Asbakken geleegd:   nee');
RE5.Lines.Add('*******************************************************************************');
RE5.Lines.add('Algemene aandachtspunten:');
RE5.Lines.add('*******************************************************************************');
RE5.Lines.Add(''+RE2.Lines.text);
//RE5.Lines.add('------------------------------------------------------------------------------------------------');
RE5.Lines.add('*******************************************************************************');
end;
end;