Edytor tekstu na komponencie tekstowym

Bardzo proszę o pomóc!!!

Mam takie zadanko:

1. Zmina czcionki
2. Zmiana koloru czcionki całości / frafmentu
3. Przepisanie do drugiego okna text
4. Zapis do pliku
5. Odczyt z pliku
6. Pomoc
7. Zapis zaznaczonego tekstu
8. Druk

fajnie, a konkretnie to z czym masz problem poza tym, że jesteś leniwy?

Naprzykład punkty 3,4,5,7 napisałem w postaci programu, a potrzebmo w formie edytora tekstu na komponencie tekstowym

program text;

uses crt, unit1;

var
haslo : string;
wybor : char;
wyjscie : char;
text :text;
lokalizacja : string;
odczyt : char;
zapis_urzytkownik : string;
i,ilosc_lini : byte;

begin
clrscr;

               REPEAT
                     write('Wpisz haslo: '); readln(haslo);
                     IF haslo<>'16michal' THEN
                     begin
                          gotoxy(1,1);
                          delline;
                     end;
               UNTIL haslo='16michal';

       REPEAT
clrscr;

               writeln('Witam w systenie :)');
               writeln;
               writeln('EIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII»');
               writeln('s                                  s');
               writeln('s            MENU WYBORU:          s');
               writeln('s                                  s');
               writeln('s      1     - odczyt danych       s');
               writeln('s      2     - zapis danuch        s');
               writeln('s                                  s');
               writeln('CIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIL');
               write('Wybierasz: '); readln(wybor);
clrscr;
               CASE wybor OF
               '1':begin
                         writeln('Wybrano odczyt danych.');
                         writeln;
                         writeln;
                         writeln('        Przyklad:');
                         writeln('       c:\text.txt       ');
                         writeln;
                         writeln;
                         write('Podaj lokalizacje pliku: '); readln(lokalizacja);
                         assign(text, lokalizacja);
                         reset(text);
clrscr;
                         REPEAT
                                read(text,odczyt);
                                write(odczyt);
                         UNTIL EOF(text);
                         close(text);
                         delay(3000);

                         readln;
                   end;

               '2':begin
                         writeln('Wybrano zapis danych.');
                         writeln;
                         writeln;
                         writeln('Podaj sciezke do pliku: '); readln(lokalizacja);
                         assign(text, lokalizacja);
                         rewrite(text);
                         write('Ilosc lini do zapisu: '); readln(ilosc_lini);
                         FOR i:=1 To ilosc_lini DO
                         begin
                              write('Linia ',i,': '); readln(zapis_urzytkownik);
                         end;
                         close(text);

                   end;
                end;

clrscr;
       write('Czy chcesz wyjsc z programu? (T/N): '); readln(wyjscie);
       wyjscie:=upcase(wyjscie);
       UNTIL wyjscie<>'N';

No to utwórz projekt aplikacji okienkowej, połóż na formularzu komponenty i je oprogramuj. Z czym konkretnie masz problem?

Nie licz na to, że ktoś zrobi cały projekt za Ciebie, bo „jesteś leniwy”. To akurat guzik nas obchodzi – to Twoje zadanie, więc powinieneś się przyłożyć do jego wykonania, zamiast wrzucać na forum wymagania i czekać na gotowca.

Zapomniałem dodać, płacę pieniążki za zrobienie tego zadania

Do zleceń masz oddzielny dział
https://4programmers.net/Forum/Og%C5%82oszenia_drobne