написать что обозначает каждая строчка

[Ozzzy]

В общем есть код программы:

unit emailsMain; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, Buttons; 

type 
  TformMain = class(TForm) 
    memoText: TMemo; 
    memoEmails: TMemo; 
    buttonLoad: TBitBtn; 
    buttonExtract: TBitBtn; 
    openDialog: TOpenDialog; 
    procedure buttonExtractClick(Sender: TObject); 
    procedure buttonLoadClick(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 

var 
  formMain: TformMain; 

implementation 

{$R *.dfm} 

procedure TformMain.buttonExtractClick(Sender: TObject); 
var 
  currentSymbolI: Integer;  // Индекс текущего символа 
  currentSymbol: String;    // текущий символ 
  currentState: String;     // текущее состояние автомата 
  bufferEmail: String;      // Буфер для аккумулирования символов адреса email 

  symbolsAlpha, symbolsDigit, symbolsSpecial: String;  // вспомогательные 
  domainWasRead: Bool;  // был ли распознан домен в адресе email 
begin 
  symbolsAlpha := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ'; 
  symbolsDigit := '0123456789'; 
  symbolsSpecial := '.-'; 
  currentState := 'S'; 
  domainWasRead := false; 
  bufferEmail := ''; 

  memoEmails.Clear; 

  for currentSymbolI := 0 to Length(memoText.Lines.Text) do 
    begin 
      currentSymbol := memoText.Lines.Text[currentSymbolI]; 

      if currentState = 'S' then 
        begin 
          if( AnsiPos( currentSymbol, symbolsAlpha ) <> 0 ) then 
            begin 
              currentState := 'E1'; 
              bufferEmail := bufferEmail + currentSymbol; 
            end 
//        else 
//          begin 
//          end 
        end 
      else 
        if currentState = 'E1' then 
          begin 
            if( AnsiPos( currentSymbol, symbolsAlpha ) <> 0 ) or 
              ( AnsiPos( currentSymbol, symbolsDigit ) <> 0 ) then 
              begin 
                bufferEmail := bufferEmail + currentSymbol; 
              end 
            else 
              if( currentSymbol = '@' ) then 
                begin 
                  currentState := 'E2'; 
                  bufferEmail := bufferEmail + currentSymbol; 
                  domainWasRead := false; 
                end 
              else 
                begin 
                  currentState := 'S'; 
                  bufferEmail := ''; 
                end 
          end 
        else 
          //if currentState = 'E2' then 
            begin 
              if( AnsiPos( currentSymbol, symbolsAlpha ) <> 0 ) or 
                ( AnsiPos( currentSymbol, symbolsDigit ) <> 0 ) or 
                ( AnsiPos( currentSymbol, symbolsSpecial ) <> 0 ) then 
                begin 
                  bufferEmail := bufferEmail + currentSymbol; 
                  domainWasRead := true; 
                end 
              else 
                begin 
                  if domainWasRead then 
                    begin 
                      currentState := 'S'; 
                      memoEmails.Lines.Add( bufferEmail ); 
                      bufferEmail := ''; 
                    end 
                  else 
                    begin 
                      currentState := 'S'; 
                      bufferEmail := ''; 
                    end 
                end 
            end 
    end; 

    if( bufferEmail <> '' ) then 
      memoEmails.Lines.Add( bufferEmail ); 

    if( memoEmails.Lines.Text = '' ) then 
      memoEmails.Lines.Add( 'Адресов E-Mail в тексте обнаружено не было ); 
end; 

procedure TformMain.buttonLoadClick(Sender: TObject); 
begin 
  if( openDialog.Execute() ) then 
    begin 
      memoText.Lines.LoadFromFile( openDialog.FileName ); 
    end; 
end; 

end.

СПАСИБО!

[Stilet]

Не многовато ли?
Этак нужно около 20 мин потерять...

[Ozzzy]

Сообщение от Stilet

Не многовато ли?
Этак нужно около 20 мин потерять...

Ну пожалуйста! просто скоро защита курсача а я не бум бум в этом...выручи плиз!